居 居士 Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-07 #1 请问如何用ShellExecute()使OUTLOOK发送含图片的HTML邮件（100分送上）
S sonie Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-07 #2 似乎用shellexecute只能启动express shellexecute(self.handle,'open','mailto:webmaster@263.net',nil,nil,SW_SHOWNORMAL )
似乎用shellexecute只能启动express shellexecute(self.handle,'open','mailto:webmaster@263.net',nil,nil,SW_SHOWNORMAL )
H hubdog Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-07 #3 如果你是问用outlook发邮件到是很简单，用outlook express好象不可能 因为outlook express不支持自动化控制。
居 居士 Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-08 #5 如果不用shellexecute，那么怎么在代码中实现用系统默认的邮件系统发送带图片的 HTML邮件呢？
A akju Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-08 #6 不是都说了吗，没有这样一个通用得方法来发送带附件的mail了吗 答案就是不可能
P proman Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-08 #7 你看一看shellexecuteEx,这个函数提供了比shellexecute强的多的功能。
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-08 #8 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;
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;
