Отправить почту из Outlook, используя QTP

Question

У меня есть кусок кода:

Set objOutlook = CreateObject("Outlook.Application") 
Set objNameSpace = objOutlook.GetNamespace("MAPI") 
Set myMail = objOutlook.CreateItem(0) 

myMail.To = "sandeep_raulo@infosys.com" 
myMail.Subject = "Happy Birthday" 
myMail.Body= "Happy Birthday" 


myMail.Send 
Wait(3) 

Set myMail = Nothing 
Set objOutlook = Nothing 

Я хочу добавить несколько фотографий в теле письма.

Answer 1

Попробуйте этот код.

Set objOutlook = CreateObject("Outlook.Application") 
Set objNameSpace = objOutlook.GetNamespace("MAPI") 
Set myMail = objOutlook.CreateItem(0) 

myMail.To = "sandeep_raulo@infosys.com" 
myMail.Subject = "Happy Birthday" 
strBody = "<p>Happy Birthday</p>" 
strBody = strBody & "<img src='Your Image Path' alt='Some name (optional)' width='Some Width' height='Some Height'>" 
'For example: "<img src='Your Image Path' alt='XYZ' width='50' height='50'>" 

myMail.HTMLBody = strBody 

myMail.Send 
Wait(3) 

Set myMail = Nothing 
Set objOutlook = Nothing 

Здесь вы создаете тело электронной почты как тело html и вставляете в него изображение.