Envoi de mail en VBA sous MAC

**veriecherie** · 29/05/2009, 10h17

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**DeaD78** · 29/05/2009, 10h42

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

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim LeDestinataire as string, MonObjet as string

Essaie aussi de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonClasseur = ActiveWorkbook.FullName

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonClasseur = ActiveWorkbook.Name

Et surtout, remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne chance !

**veriecherie** · 29/05/2009, 11h14

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

**Pierre Fauconnier** · 29/05/2009, 11h17

Bonjour

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

**veriecherie** · 29/05/2009, 11h27

Bonjour Pierre,

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

**DeaD78** · 29/05/2009, 11h36

Re,

Pas bête la remarque sur Entourage

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

)

Bref, tu devrais l'avoir mais vérifie quand même !

**veriecherie** · 29/05/2009, 11h45

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

**DeaD78** · 29/05/2009, 12h19

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

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é !