目前我們正在使用MAPI從我們的應用程序發送純文本電子郵件.當用戶調用此函數時,我們指定對話框標志,以便電子郵件將顯示在他們的電子郵件客戶端中,然后他們可以修改并發送它.

我們想要修改電子郵件并以HTML格式發送.

根據此鏈接,MSDN鏈接MAPI不適用于此http://support.microsoft.com/kb/268440

我在ExpertsExchange上看到一篇文章說你可以使用MAPI來做這件事,但是我無法讓這個例子與Outlook一起工作(還沒有試過任何其他客戶端)

procedure ShowMailDlg(ToName,Address,HTMLMessage: string);

var

li: integer;

lMessage: TMapiMessage;

lRecipArray: array of TMapiRecipDesc;

lREs: DWord;

begin

SetLength(lRecipArray,1);

lRecipArray[0].ulRecipClass:=MAPI_TO;

lRecipArray[0].lpszName:=pChar(ToName);

lRecipArray[0].lpszAddress:=pChar(Address);

lMessage.ulReserved:=0;

lMessage.lpszSubject:=nil;

lMessage.lpszNoteText:=pChar(HTMLMessage);

lMessage.lpszMessageType:= nil;//pChar('HTML');

lMessage.lpszDateReceived:=nil;

lMessage.lpszConversationID:=nil;

lMessage.flFlags:=0;

lMessage.lpOriginator:=nil;

lMessage.nRecipCount:=length(lRecipArray);

lMessage.lpRecips:=PMapiRecipDesc(lRecipArray);

lMessage.nFileCount:=0;

lMessage.lpFiles:=PMapiFileDesc(nil);

lRes:=MapiSendMail(0, 0 , lMessage,MAPI_DIALOG, 0);

end;

任何人都有任何想法我怎么能這樣做.我可以自動化Outlook但我想保持它與電子郵件客戶端(因此MAPI)相當獨立

謝謝

更新：感謝大家的建議.該功能的問題并非使用頻繁,因此要求用戶配置SMTP詳細信息并不是一個真正的選擇.我想我們會堅持使用純文本電子郵件.

謝謝

總結

以上是生活随笔為你收集整理的delphi 发送html邮件,delphi – 以HTML格式发送电子邮件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。