需要写一个发送Email的子程序,第一次接触,不懂!最好是直接调用outlook,把收件人的地址固定!那位大侠能给点提示,谢谢!还有以下这段程序是用咋么发送Email的?
procedure TLoadForm.SB_SuppliorClick(Sender: TObject);
var
MapiMessage:TMapiMessage;
MError: Cardinal;
begin
With MapiMessage do begin
ulReserved:=0;
lpszSubject:=nil;
lpszNoteText:=PChar('[email protected]');
lpszMessageType:=nil;
lpszDateReceived:=nil;
lpszConversationID:=nil;
flFlage:=0;
lpOriginator:=nil;
nRecipCount:=0;
lpRecips:=nil;
nFileCount:=0;
lpFiles:=nil;
end;
MError:=MapiSendMail(0,0,MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION,0);
end;
可惜在我编译的时候有提示:好象是说TMapiMessage未申明吧!我把它加入到uses中,也不行,没有这个单元的!晕死了,那位能给点意见!谢了,很急!!
procedure TLoadForm.SB_SuppliorClick(Sender: TObject);
var
MapiMessage:TMapiMessage;
MError: Cardinal;
begin
With MapiMessage do begin
ulReserved:=0;
lpszSubject:=nil;
lpszNoteText:=PChar('[email protected]');
lpszMessageType:=nil;
lpszDateReceived:=nil;
lpszConversationID:=nil;
flFlage:=0;
lpOriginator:=nil;
nRecipCount:=0;
lpRecips:=nil;
nFileCount:=0;
lpFiles:=nil;
end;
MError:=MapiSendMail(0,0,MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION,0);
end;
可惜在我编译的时候有提示:好象是说TMapiMessage未申明吧!我把它加入到uses中,也不行,没有这个单元的!晕死了,那位能给点意见!谢了,很急!!
解决方案 »
- 常见的错误!Record not found or changed by another user
- 如何改变Delphi编译器的背景颜色
- 如何进行文本合并?
- 请教:我调试好的数据库程序,换了一台电脑,就说找不到数据库文件的问题,谢谢!
- 奇怪的现象,有关 Button Click
- 一个关于MDIForm和MDIChild的问题?
- 在delphi7中装了QReport,但只有在窗体中加入TQuickRep组件,其他什么也不加,在编译时就会出错:“Property ExtendedDuplex dose not ex
- 高分求救,怎么实现金山打字通的跟踪功能??急急急
- 高手救我:Dll中的DataModule应该怎样使用?
- 如何在 DBGRID 中定位第N条记录?
- 关于动态数组声明,难!!!!!!
- 关于CacheSize
------------------------------------------------
我才晕死use Mapi;