Discussion :

[veriecherie]

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]

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]

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]

Bonjour

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

[veriecherie]

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]

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 !