thisworkbook.sendmail

Bonjour,

Les destinataires doivent être entrés sous forme d'une variable de type
matricielle :

Destis = Array("desti1@test.com", "desti2@test.com")
ThisWorkbook.SendMail Destis, Subject:="test"

Bonjout tout le monde,

je voudrais savoir si avec la propriete sendMail on peut ajouter un
autre destinataire en CC via outlook

ThisWorkbook.SendMail Recipients:="tot@tot.com" Subject:="test"

Merci

Merci pour ta suggestion

je viens de l essayer mais le mail le deuxieme destinataire ne se met
pas en CC

est ce qui il y a une autre methode pour envoyer le classeur apart
thisworkbook.sendMail

merci

Désolé, j'avais mal lu, tu ne peux pas mettre de destinataires en
copie.
Utilise :

Sub EnvoiCourrier()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & "temp.xls"
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Sujet"
.Body = "Corps"
.Recipients.Add "test@test.com"
.CC = "test1@test.com"
.attachments.Add ThisWorkbook.Path & "" & "temp.xls"
.Send
Kill ThisWorkbook.Path & "" & "temp.xls"
End With
End Sub

Merci pour ta suggestion

je viens de l essayer mais le mail le deuxieme destinataire ne se met
pas en CC

est ce qui il y a une autre methode pour envoyer le classeur apart
thisworkbook.sendMail

merci

Merci Daniel pour le temps que tu consacre a mes messages

je viens d essayer la deniere suggestion mais sa fonctionne pas il me
sort message d erreur (erreur automation le chemin specifie est
introuvable)

si tu peux m aider a trouver de ce probleme

encore merci

Quel est ton clent de messagerie ?
La macro est écrite pour Outlook (pas Outlook Express)
Quelle ligne est en erreur ?

Merci Daniel pour le temps que tu consacre a mes messages

je viens d essayer la deniere suggestion mais sa fonctionne pas il me
sort message d erreur (erreur automation le chemin specifie est
introuvable)

si tu peux m aider a trouver de ce probleme

encore merci

J'ai aussi oublié de préciser que le classeur contenant la macro devait
être enregistré.
Daniel

Merci Daniel pour le temps que tu consacre a mes messages

je viens d essayer la deniere suggestion mais sa fonctionne pas il me
sort message d erreur (erreur automation le chemin specifie est
introuvable)

si tu peux m aider a trouver de ce probleme

encore merci

tout fonctionne j ai juste changer le chemin ou le classeur va etre
copier

merci encore ;)

j essaie maintenant d envoye le courriel a plusieurs personne sans les
mettres en CC mais sa fonctionne pas avec la derniere methode

si t as une solution sachant que le Array ne focntionne pas ni avec
le .To ni avec le .Recipients.add

merci

La macro suivante fonctionne. J'ai ajouté la commande "Display" pour
que tu puisses visualiser le message. Quand ta macro est au point,
enlève cette commande et dé-commente la commande ".Send"
Pour les destinataires en copie, s'ily en a plusieurs, tu les mets dans
la même variable string séparés par des ";". Tu peux faire de même pour
les destinataires avec la commande "To" ou tu peux les ajouter un à un
avec "Recipients.Add".
Daniel

j essaie maintenant d envoye le courriel a plusieurs personne sans les
mettres en CC mais sa fonctionne pas avec la derniere methode

si t as une solution sachant que le Array ne focntionne pas ni avec
le .To ni avec le .Recipients.add

merci

Avec la macro, c'est mieux :

Sub EnvoiCourrier()
ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & "temp.xls"
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Sujet"
.Body = "Corps"
.Recipients.Add "test1@test.com"
.Recipients.Add "test2@test.com"
.CC = "test3@test.com;test4@test.com"
.attachments.Add ThisWorkbook.Path & "" & "temp.xls"
.display
'.Send
Kill ThisWorkbook.Path & "" & "temp.xls"
End With
End Sub

Daniel

DanielCo a écrit

La macro suivante fonctionne. J'ai ajouté la commande "Display" pour que tu
puisses visualiser le message. Quand ta macro est au point, enlève cette
commande et dé-commente la commande ".Send"
Pour les destinataires en copie, s'ily en a plusieurs, tu les mets dans la
même variable string séparés par des ";". Tu peux faire de même pour les
destinataires avec la commande "To" ou tu peux les ajouter un à un avec
"Recipients.Add".
Daniel

j essaie maintenant d envoye le courriel a plusieurs personne sans les
mettres en CC mais sa fonctionne pas avec la derniere methode

si t as une solution sachant que le Array ne focntionne pas ni avec
le .To ni avec le .Recipients.add

merci