Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
PMO
Bonjour,
Une piste avec le code suivant
'********** Sub PMO_ImageMail() Dim OUT As Outlook.Application Dim IT As Outlook.MailItem Dim msg$ Dim img$ Dim A$ Set OUT = CreateObject("Outlook.Application") Set IT = OUT.CreateItem(olMailItem) msg$ = "Bonjour" img$ = "c:hiver.jpg" 'modifier le chemin de l'image If msg$ <> "" Then If img$ = "" Then A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>" Else A$ = "<HTML><BODY>" & msg$ End If End If If img$ <> "" Then If msg$ = "" Then A$ = A$ & "<br><img src='" & img$ & "'><br>" Else A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>" End If End If With IT .Display .HTMLBody = A$ .Subject = "essai" .To = "" 'changer le destinataire .Send End With End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a partir d'excel. voici le morceau de la macro Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
Merci d avance
Bonjour,
Une piste avec le code suivant
'**********
Sub PMO_ImageMail()
Dim OUT As Outlook.Application
Dim IT As Outlook.MailItem
Dim msg$
Dim img$
Dim A$
Set OUT = CreateObject("Outlook.Application")
Set IT = OUT.CreateItem(olMailItem)
msg$ = "Bonjour"
img$ = "c:hiver.jpg" 'modifier le chemin de l'image
If msg$ <> "" Then
If img$ = "" Then
A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>"
Else
A$ = "<HTML><BODY>" & msg$
End If
End If
If img$ <> "" Then
If msg$ = "" Then
A$ = A$ & "<br><img src='" & img$ & "'><br>"
Else
A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>"
End If
End If
With IT
.Display
.HTMLBody = A$
.Subject = "essai"
.To = "toto@zaza.fr" 'changer le destinataire
.Send
End With
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a
partir d'excel.
voici le morceau de la macro
Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
'********** Sub PMO_ImageMail() Dim OUT As Outlook.Application Dim IT As Outlook.MailItem Dim msg$ Dim img$ Dim A$ Set OUT = CreateObject("Outlook.Application") Set IT = OUT.CreateItem(olMailItem) msg$ = "Bonjour" img$ = "c:hiver.jpg" 'modifier le chemin de l'image If msg$ <> "" Then If img$ = "" Then A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>" Else A$ = "<HTML><BODY>" & msg$ End If End If If img$ <> "" Then If msg$ = "" Then A$ = A$ & "<br><img src='" & img$ & "'><br>" Else A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>" End If End If With IT .Display .HTMLBody = A$ .Subject = "essai" .To = "" 'changer le destinataire .Send End With End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a partir d'excel. voici le morceau de la macro Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
Merci d avance
Philippe
Merci Patrick pour ton aide qui est tout a fait ce que je cherchais
Bien cordialement
Philippe
Bonjour,
Une piste avec le code suivant
'********** Sub PMO_ImageMail() Dim OUT As Outlook.Application Dim IT As Outlook.MailItem Dim msg$ Dim img$ Dim A$ Set OUT = CreateObject("Outlook.Application") Set IT = OUT.CreateItem(olMailItem) msg$ = "Bonjour" img$ = "c:hiver.jpg" 'modifier le chemin de l'image If msg$ <> "" Then If img$ = "" Then A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>" Else A$ = "<HTML><BODY>" & msg$ End If End If If img$ <> "" Then If msg$ = "" Then A$ = A$ & "<br><img src='" & img$ & "'><br>" Else A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>" End If End If With IT .Display .HTMLBody = A$ .Subject = "essai" .To = "" 'changer le destinataire .Send End With End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a partir d'excel. voici le morceau de la macro Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
Merci d avance
Merci Patrick pour ton aide qui est tout a fait ce que je cherchais
Bien cordialement
Philippe
Bonjour,
Une piste avec le code suivant
'**********
Sub PMO_ImageMail()
Dim OUT As Outlook.Application
Dim IT As Outlook.MailItem
Dim msg$
Dim img$
Dim A$
Set OUT = CreateObject("Outlook.Application")
Set IT = OUT.CreateItem(olMailItem)
msg$ = "Bonjour"
img$ = "c:hiver.jpg" 'modifier le chemin de l'image
If msg$ <> "" Then
If img$ = "" Then
A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>"
Else
A$ = "<HTML><BODY>" & msg$
End If
End If
If img$ <> "" Then
If msg$ = "" Then
A$ = A$ & "<br><img src='" & img$ & "'><br>"
Else
A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>"
End If
End If
With IT
.Display
.HTMLBody = A$
.Subject = "essai"
.To = "toto@zaza.fr" 'changer le destinataire
.Send
End With
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a
partir d'excel.
voici le morceau de la macro
Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
Merci Patrick pour ton aide qui est tout a fait ce que je cherchais
Bien cordialement
Philippe
Bonjour,
Une piste avec le code suivant
'********** Sub PMO_ImageMail() Dim OUT As Outlook.Application Dim IT As Outlook.MailItem Dim msg$ Dim img$ Dim A$ Set OUT = CreateObject("Outlook.Application") Set IT = OUT.CreateItem(olMailItem) msg$ = "Bonjour" img$ = "c:hiver.jpg" 'modifier le chemin de l'image If msg$ <> "" Then If img$ = "" Then A$ = "<HTML><BODY>" & msg$ & "</BODY></HTML>" Else A$ = "<HTML><BODY>" & msg$ End If End If If img$ <> "" Then If msg$ = "" Then A$ = A$ & "<br><img src='" & img$ & "'><br>" Else A$ = A$ & "<br><img src='" & img$ & "'><br></BODY></HTML>" End If End If With IT .Display .HTMLBody = A$ .Subject = "essai" .To = "" 'changer le destinataire .Send End With End Sub '**********
Cordialement. -- PMO Patrick Morange
Bonjour a tous,
ESt il possible d' envoyer un mail avec une image dans le corps du mail a partir d'excel. voici le morceau de la macro Email.body = "Monsieur," ....
c est bien dans mon texte que je veux inserer une image
