目前我們正在使用MAPI從我們的應(yīng)用程序發(fā)送純文本電子郵件.當(dāng)用戶調(diào)用此函數(shù)時(shí),我們指定對(duì)話框標(biāo)志,以便電子郵件將顯示在他們的電子郵件客戶端中,然后他們可以修改并發(fā)送它.

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

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

我在ExpertsExchange上看到一篇文章說(shuō)你可以使用MAPI來(lái)做這件事,但是我無(wú)法讓這個(gè)例子與Outlook一起工作(還沒(méi)有試過(guò)任何其他客戶端)

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;

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

謝謝

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

謝謝

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。