L'envoi de courrier Électronique Outlook avec embedded image à l'aide de VBS
Je suis actuellement en utilisant le suivant VBS script pour envoyer un mail, et il fonctionne très bien, cependant l'image est envoyé en tant que pièce jointe. Je serait plutôt à intégrer l'image dans le message. Je comprends que je doit faire référence à la pièce jointe dans le corps HTML de l'email mais j'ai du mal à le faire.
Des suggestions?
Dim ToAddress
Dim FromAddress
Dim MessageSubject
Dim MyTime
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail
MyTime = Now
ToAddress = "[email protected]"
MessageSubject = "Auto Stats " & MyTime
MessageBody = "Stats Attached" & vbCrLf & "Produced at " & MyTime
MessageAttachment = "P:\stats.png"
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody
newMail.RecipIents.Add(ToAddress)
newMail.Attachments.Add(MessageAttachment)
newMail.Send
OriginalL'auteur gamesmad | 2012-12-21
Vous devez vous connecter pour publier un commentaire.
utiliser le code ci-dessous
Espère que cela aide
OriginalL'auteur Larry
J'ai testé cette dans outlook 2003 et 2016
OriginalL'auteur John Yogore