先把邮件保存,然后在草稿箱找到,单击。然后单击邮件的左上方的“弹出”,出来后的页面就可以加入了。
const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add('abc@123.net');
MailItem.Subject := 'your subject';
MailItem.Body := 'Your Body Text';
MailItem.Attachments.Add('Your Picture FileName');
MailItem.Send;
Oulook := Unassigned;
end;