Discussion :

[vijeo]

Bonjour,
je suis a la recherche d'une solution pour envoyer un document words par email avec le VBA de words. quelqu'un peut il m'aider ?
@+ Vijeo

[Heureux-oli]

La methode SendMail donne quoi ?

Code :

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

ActiveDocument.SendMail

[oli330cd]

Je veut bien faire un essai avec la methode send mail mais ou dois je renseigner les parametres du mail (adresse...)
@+ Vijeo

[Heureux-oli]

Essaie comme ça alors !

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
18
19
Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
Dim myAtt As Attachment
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName)
 
MyIt.To = "nom@fai"
MyIt.Subject = "Sujet de l'envoi"
MyIt.BodyFormat = olFormatHTML
MyIt.Body = "mon corps de message"
 
 
MyIt.Send
 
 
End Sub

[oli330cd]

Bonjour et merci
elle me plait ta solution mais comment faire pour que le body soit mon document word.
Remarque: je ne souhaite pas attacher le fichier word au mail
@+ vijeo

[Heureux-oli]

Voilà pour envoyer le texte d'un document en tant que corps de message.

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
18
19
20
21
22
23
24
25
Sub EnvoiMail()
Dim oApp As Outlook.Application
Dim MyIt As MailItem
'Dim myAtt As Attachment
Dim stTemp As String
Dim myRange As Range
Set myRange = ActiveDocument.Range
myRange.WholeStory
myRange.Select
stTemp = Selection.Text
 
Set oApp = CreateObject("outlook.application")
Set MyIt = oApp.CreateItem(olMailItem)
'Set myAtt = MyIt.Attachments.Add(ActiveDocument.FullName)
 
MyIt.To = "olivier.lebeau@mil.be"
MyIt.Subject = "Sujet de l'envoi"
MyIt.BodyFormat = olFormatHTML
MyIt.Body = stTemp
 
 
MyIt.Send
 
 
End Sub

[vijeo]

je m'en vais l'essayer
Merci
@+ Vijeo

[vijeo]

je viens de faire l'essais effectivement cela fonctionne, mais s'il y a une image dans mon document elle n'apparait pas dans le mail envoyé
as tu une solution ?
@+ Vijeo

[Heureux-oli]

Il faut faire du html pour inclure une image.

[vijeo]

je dois mal m'y prendre car meme en partant d'un document html cela ne fonctionne pas j'ai bien le texte mais pas les images
@+ Vijeo