Envoi de mail en VBA sous MAC

Version imprimable

Bonjour à tous,
J'ai un problème d'envoi de mail par une macro VBA. Sur PC ça marche très bien et sous MAC cela ne fonctionne pas, donc j'ai modifié la fonction pour essayer de la faire fonctionner sous MAC mais rien à faire ça ne fonctionne toujours pas.
Voilà le code, que j'ai trouvé sur internet...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub EnRoute() ' Pour envoyer le classeur actif en PJ au destinataire en A1 ' avec l'objet du message en A2 (on peut rajouter "content" ou "sender" ' et personnaliser selon les besoins, évidemment...) Dim Str As String, temp As String ActiveWorkbook.Save LeDestinataire = "toto@tutu.com" MonObjet = "Note de frais" MonClasseur = ActiveWorkbook.FullName Str = "tell application ""Microsoft Entourage""" & vbCr _ & "make new outgoing message with properties" _ & "{recipient:""" & LeDestinataire & """,subject:""" _ & MonObjet & """,attachment:""" & MonClasseur & """}" _ & vbCr & "move the result to out box folder" & vbCr & "end tell" temp = MacScript(Str) End Sub
Si quelqu'un peut m'aider svp !
Merci

Bonjour,

Alors, juste pour être sûr, dis-moi que tu n'as pas Office2008 sur ton Mac... Car, pour la petite info, VBA a été retiré depuis cette version (la dernière) de l'ensemble des logiciels du Pack Office. Donc ce n'est même pas la peine d'essayer de faire marcher ta macro dans ce cas, les macros n'existent plus. Je le sais que trop bien, j'ai ce fameux 2008 chez moi :cry:

Imaginons que tu aies plutôt Office2004, soit. Un autre truc à savoir, les logiciels du pack sont TOUS entièrement buggés jusqu'à l'os. De plus, il suffit de comparer, ils différent beaucoup de ce que tu peux trouver sur PC. Bref, c'est pas la fête :mouarf: Développez quelque chose de bien pour leurs concurrents, sont pas fans chez Microsoft...

Sinon, est-ce cette partie de la macro qui ne tourne pas (si Excel2004) ? Où est l'erreur exactement ?

C'est bizarre, tu n'as QUE du traitement de String. Essaie peut-être de rajouter :

Code:

Dim LeDestinataire as string, MonObjet as string

Essaie aussi de remplacer

Code:

MonClasseur = ActiveWorkbook.FullName

par

Code:

MonClasseur = ActiveWorkbook.Name

Et surtout, remplaces
Code:

1 2 3 4 5 Str = "tell application ""Microsoft Entourage""" & vbCr _ & "make new outgoing message with properties" _ & "{recipient:""" & LeDestinataire & """,subject:""" _ & MonObjet & """,attachment:""" & MonClasseur & """}" _ & vbCr & "move the result to out box folder" & vbCr & "end tell"
par
Code:

1 2 3 4 5 Str = "tell application Microsoft Entourage" & vbCr _ & "make new outgoing message with properties" _ & "{recipient:" & LeDestinataire & ",subject:" _ & MonObjet & ",attachment:" & MonClasseur & "}" _ & vbCr & "move the result to out box folder" & vbCr & "end tell"
Sait-on jamais, il n'aime peut-être pas tes triple guillemets.

A mon avis, ça serait même plutôt ton script Mac qui doit bugger ou tu as tout simplement Excel2008 :mouarf:

Bonne chance !

29/05/2009, 11h14
veriecherie

Merci DeaD78 pour ton aide ! J'ai bien office 2004 donc j'ai encore un petit espoir pr que cela fonctionne !
Je vais tester tout ça et je te tiens au courant mais merci pour ton aide, je pensais pas avoir d'aide aussi rapidement sachant que c'est sur MAC y a moins développeur dessus.
A+
Merci
29/05/2009, 11h17
Pierre Fauconnier

Bonjour

Il faudrait voir aussi à quoi se rapporte "TELL Microsoft Entourage" sur un MAC... Est-ce que cela existe?
29/05/2009, 11h27
veriecherie

Bonjour Pierre,

Citation:

Il faudrait voir aussi à quoi se rapporte "TELL Microsoft Entourage" sur un MAC... Est-ce que cela existe?

Je n'ai aucune idée, j'avoue que j'ai trouvé ça sur Internet dans un forum en me disant "pourvu que ça fonctionne" sans me poser d'autres questions :?
29/05/2009, 11h36
DeaD78

Re,

Pas bête la remarque sur Entourage :ccool:

Si tu as Office2004 et non juste Excel, normalement tu dois avoir Microsoft Entourage. Regarde bien dans ton répertoire Office, c'est une icône représentant un gros "E" violet.

Il s'agit, sur Mac, du logiciel Microsoft de messagerie (et non Outlook 8O)

Bref, tu devrais l'avoir mais vérifie quand même !
29/05/2009, 11h45
veriecherie

Citation:

Si tu as Office2004 et non juste Excel, normalement tu dois avoir Microsoft Entourage. Regarde bien dans ton répertoire Office, c'est une icône représentant un gros "E" violet.

Il s'agit, sur Mac, du logiciel Microsoft de messagerie (et non Outlook )

Oui il y est.
En fait avec le code que j'ai posté, ça m'affiche un message comme quoi il essaie d'envoyer un mail, je lui dit Ok mais il me redemande 10 minutes après jsuqu'à éteindre le PC...
J'ai tjs pas testé le nouveau code, je n'ai pas le MAC en possession là :?
Merci
29/05/2009, 12h19
DeaD78

Peut-être n'as-tu pas paramétré Entourage ?

Si jamais Entourage n'arrive pas à envoyer le mail, il continuera d'essayer jusqu'à ce qu'il y arrive, ce qui est normal.

Bref, il est possible que ton code VBA ait fonctionné, qu'il ait envoyé l'ordre à Entourage mais qu'Entourage n'arrive pas à transmettre le mail.

Force à quitter Entourage et tu n'auras sûrement pas le problème du message toutes les 10 mins :roll:

Je pense donc vraiment que ce n'est plus un problème de macro. Il va peut-être falloir paramétrer Entourage correctement. Ta macro originale doit être bonne alors.

As-tu tenté d'ouvrir Entourage, d'écrire un mail avec pour sujet "blabla" et de te l'envoyer à toi-même ? Si le mail ne part pas manuellement, il ne risque pas de partir par macro. Bref, teste ça et on sera fixé !
29/05/2009, 14h40
veriecherie

Bien joué DeaD78 ! :ccool:
Sur le MAC où je testais Entourage n'était pas configuré correctement. Je n'y avais pas pensé !

Encore merci pour votre rapidité à tous !
MERCI
29/05/2009, 14h51
DeaD78

Mais pas de soucis :zoubi:

Alala, ces macs, je vous jure :mouarf:

A plus tard !