摘要：
Delphi通过Office Outlook网络上的Delphi电子邮件发送系统发送电子邮件，其中大多数使用SMTP协议发送。但事实上，它们已经过时了。大多数邮件服务器都阻止了Delphi Indy的邮件发送，这导致了Delphi发送失败。事实上，让Delphi使用Outlook它也非常方便应用程序发送电子邮件，没有那么多限制。但是，使用它的前提是您现在必须在本地Outlook上配置帐户。
Delphi 发送邮件 通过Office Outlook
网上搜到的Delphi邮件发送系统，绝大多数是使用SMTP协议来发送。
但是事实上它们已经过时了，大多数邮件服务器已经屏蔽了Delphi Indy的邮件发送，从而导致Delphi发送不成功。
事实上，让Delphi通过Outlook.Application来发送邮件，也是非常方便的，而且没有那么多的限制。
以下是我目前使用的，我把它写成了个函数，使用的时候调用一下即可。
不过，使用的前提是，你得现在在本地Outlook上配置好一个账户。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | procedureTForm1.SendOutlookMail(constRecipient,Title,Body,Attachment:string); const olMailItem = 0; var Outlook: OleVariant; vMailItem: variant; begin try Outlook := GetActiveOleObject("Outlook.Application"); except Outlook := CreateOleObject("Outlook.Application"); end; vMailItem := Outlook.CreateItem(olMailItem); vMailItem.Recipients.Add(Recipient); vMailItem.Subject := Title; vMailItem.Body := Body; ifAttachment <>"" thenvMailItem.Attachments.Add(Attachment); vMailItem.Send; VarClear(Outlook); |
