Discussion :

[dindon69]

Bonjour à tous,

je souhaiterai créer un bouton d'envoi automatique du document word en corps de message via Outlook.
je souhaiterai un destinataire principale + un autre en CC

Egalement j'aimerai que l'objet du mail face référence à un titre sur le document (je ne sais pas si j'exprime mon idée correctement)

je suis tomber sur ceci, ca fonctionne mais je souhaiterai modifier en fonction des deux points que je viens de citer ci dessous :

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 envoimail()
'
' envoie un mail avec la pièce jointe
'
Dim ol As Object, monItem As Object
Set ol = CreateObject("outlook.application")
Set monItem = ol.CreateItem(olMailItem)
 
monItem.To = "mondestinataire@adresse.com "
monItem.Subject = "objet du mail"
monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"
Set mondoc = monItem.Attachments
mondoc.Add ActiveDocument.FullName
monItem.Send
Set ol = Nothing
MsgBox "la demande a bien été transmise "
End Sub

Merci pour votre aide,

[Heureux-oli]

Salut,

La voie choisie n'est pas la bonne.

Le bout de code que tu nous donnes ne te permettra pas d'utiliser le corps du document comme contenu d'un message.

Pour le faire, je ne vois que le copier/coller du contenu du document.
Mais c'est un problème Outlook et plus Word.

[dindon69]

Salut,

La voie choisie n'est pas la bonne.

Le bout de code que tu nous donnes ne te permettra pas d'utiliser le corps du document comme contenu d'un message.

Pour le faire, je ne vois que le copier/coller du contenu du document.
Mais c'est un problème Outlook et plus Word.

merci pour ta réponse

dans ce cas, je vais rester sur cette solution avec envoi direct via outlook en piece jointe. comment faire pour ajouter un destinataire svp ?
monItem.To = "mondestinataire@adresse.com "

[Heureux-oli]

Salut,

Une concaténation des différents destinataires.

Code :

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

myItem.To = "Detinatiares1@mail.com" & "Destinataire2@mail.com"

Je pense qu'il faut un ; entre chaque, mais c'est à vérifier.