用shellexecute发送邮件的问题(50分)

deanjoy · 2001-08-18

怎么设置主题啊？

ljqljq · 2001-08-18

在邮件地址前加mailto:

deanjoy · 2001-08-20

我当然知道要加mailto:.但是请注意，我说的是主题！

Pan Ying · 2001-08-20

好像是mailto:url?subject=....就可以了

deanjoy · 2001-08-21

好像不是吧，会不会在后面的几个默认nil设置？

枫之叶 · 2001-08-21

PanYing 的没错. Emailto的语法如下: EmailTo:someoneEmail?subject=subject of Message&cc=otherEmail 其中someoneEmail是接收方的Email,subject of Message是主题,otherEmail是发送方 的Email. 示范如下:   ShellExecute(handle, 'open','mailto:whz98@263.net?subject=主题&cc=fengye2000@263.net', Nil, nil, SW_SHOWNORMAL);

sunys · 2001-08-21

那附件呢，内容呢，怎么办。。。还有谁知道吗

DreamTiger · 2001-08-22

附件、内容，其实这都跟你用的email软件有关，它支持这些，你就可以用， 它不支持，你就不能用。没有一个业界标准的。

sunys · 2001-08-22

就比如这句话，发EMAIL就是用OUTLOOK ShellExecute(handle, 'open','mailto:whz98@263.net?subject=主题&cc=fengye2000@263.net', Nil, nil, SW_SHOWNORMAL)

枫之叶 · 2001-08-23

作一下补充:  Emailto的语法如下:  EmailTo:收信人Email地址?subject=主题&cc=发信人Email地址&BCC=附件地址&body=正文内容 例如:   ShellExecute(handle, 'open','mailto:whz98@263.net?subject=主题&cc=fengye2000@263.net&body=正文&BCC=c:/whz.bmp', Nil, nil, SW_SHOWNORMAL); 此示例在Delphi5&OulLook Express5测试通过. 该给分了吧!

sunys · 2001-08-23

&BCC=c:/whz.bmp  这个不是附件，是密件抄送。 附件怎么表达，答完后马上给分

sunys · 2001-08-24

有没有人回答吗，如果是两个附件呢

蓝狐 · 2001-08-24

你的问题是一个接一个啊，而且回答了还不给分，你的第一个问题：怎么设置主题啊？ Pan Ying已经算是回答对拉，你的那个添加附件的问题已经是第2个问题拉，这个问题 我是知道的，但我觉的在email连接的时候添加附件，没有这个必要拉，你做的软件是拿 给别人用，别人发email给你，你还要人家被动发什么附件，是不是别有用心啊，以前我 到是做了一个这种东西，可以用来窃去对方资料，但你给的分也太少了点吧，所以这个问 题我不想回答你，不过可以告诉你一个也很有用的东西 如何通过单击按钮发送DBEdit中的email地址，DBEdit中的email地址可以从数据库中提取 var a:string; begin a:=DBEdit1.Text; ShellExecute(Application.Handle,nil,pchar('mailto:'+a+''),nil,nil,SW_SHOWNORMAL); 这个在人员资料的编程中很有用哦

sunys · 2001-08-24

不说没关系，我自己找，我就不信

Kingron · 2001-08-24

讨论过了，可以用OLE来控制。 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('Kingron@163.net');   MailItem.Subject := 'your subject';   MailItem.Body := 'Body';   MailItem.Attachments.Add('C:/Windows/system.dat');   MailItem.Send;       Oulook := Unassigned; end;

sunys · 2001-08-24

这个我知道，其实我就是想按一个按钮，跳出OUTLOOK，然后附件在程序里加进去，就这么简单 谁回答了，我马上给分，我的全部分

Kingron · 2001-08-24

简单，给你一个控件，自己看着办吧。：） unit MapiControl; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type   { Introducing a new Type of Event to get the Errorcode }   TMapiErrEvent = procedure(Sender: TObject; ErrCode: Integer) of object;   TMapiControl = class(TComponent)     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   private     { Private-Deklarationen }     FSubject: string;     FMailtext: string;     FFromName: string;     FFromAdress: string;     FTOAdr: TStrings;     FCCAdr: TStrings;     FBCCAdr: TStrings;     FAttachedFileName: TStrings;     FDisplayFileName: TStrings;     FShowDialog: Boolean;     FUseAppHandle: Boolean;     { Error Events: }     FOnUserAbort: TNotifyEvent;     FOnMapiError: TMapiErrEvent;     FOnSuccess: TNotifyEvent;     { +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]}     procedure SetToAddr(newValue : TStrings);     procedure SetCCAddr(newValue : TStrings);     procedure SetBCCAddr(newValue : TStrings);     procedure SetAttachedFileName(newValue : TStrings);     { +< Changes }   protected     { Protected-Deklarationen }   public     { Public-Deklarationen }     ApplicationHandle: THandle;     procedure Sendmail();     procedure Reset();   published     { Published-Deklarationen }     property Subject: string read FSubject write FSubject;     property Body: string read FMailText write FMailText;     property FromName: string read FFromName write FFromName;     property FromAdress: string read FFromAdress write FFromAdress;     property Recipients: TStrings read FTOAdr write SetTOAddr;     property CopyTo: TStrings read FCCAdr write SetCCAddr;     property BlindCopyTo: TStrings read FBCCAdr write SetBCCAddr;     property AttachedFiles: TStrings read FAttachedFileName write SetAttachedFileName;     property DisplayFileName: TStrings read FDisplayFileName;     property ShowDialog: Boolean read FShowDialog write FShowDialog;     property UseAppHandle: Boolean read FUseAppHandle write FUseAppHandle;     { Events: }     property OnUserAbort: TNotifyEvent read FOnUserAbort write FOnUserAbort;     property OnMapiError: TMapiErrEvent read FOnMapiError write FOnMapiError;     property OnSuccess: TNotifyEvent read FOnSuccess write FOnSuccess;   end; procedure Register; implementation uses Mapi; { Register the component: } procedure Register; begin   RegisterComponents('expectIT', [TMapiControl]); end; { TMapiControl } constructor TMapiControl.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FOnUserAbort := nil;   FOnMapiError := nil;   FOnSuccess := nil;   FSubject := '';   FMailtext := '';   FFromName := '';   FFromAdress := '';   FTOAdr := TStringList.Create;   FCCAdr := TStringList.Create;   FBCCAdr := TStringList.Create;   FAttachedFileName := TStringList.Create;   FDisplayFileName := TStringList.Create;   FShowDialog := False;   ApplicationHandle := Application.Handle; end; { +> Changes by Eugene Mayevski [mailto:Mayevski@eldos.org]} procedure TMapiControl.SetToAddr(newValue : TStrings); begin   FToAdr.Assign(newValue); end; procedure TMapiControl.SetCCAddr(newValue : TStrings); begin   FCCAdr.Assign(newValue); end; procedure TMapiControl.SetBCCAddr(newValue : TStrings); begin   FBCCAdr.Assign(newValue); end; procedure TMapiControl.SetAttachedFileName(newValue : TStrings); begin   FAttachedFileName.Assign(newValue); end; { +< Changes } destructor TMapiControl.Destroy; begin   FTOAdr.Free;   FCCAdr.Free;   FBCCAdr.Free;   FAttachedFileName.Free;   FDisplayFileName.Free;   inherited destroy; end; { Reset the fields for re-use} procedure TMapiControl.Reset; begin   FSubject := '';   FMailtext := '';   FFromName := '';   FFromAdress := '';   FTOAdr.Clear;   FCCAdr.Clear;   FBCCAdr.Clear;   FAttachedFileName.Clear;   FDisplayFileName.Clear; end; { Send the Mail via the API, this procedure composes and sends   the Email } procedure TMapiControl.Sendmail; var   MapiMessage: TMapiMessage;   MError: Cardinal;   Sender: TMapiRecipDesc;   PRecip, Recipients: PMapiRecipDesc;   PFiles, Attachments: PMapiFileDesc;   i: Integer;   AppHandle: THandle; begin   { First we store the Application Handle, if not     the Component might fail to send the Email or     your calling Program gets locked up. }   AppHandle := Application.Handle;   { We need all recipients to alloc the memory }   MapiMessage.nRecipCount := FTOAdr.Count + FCCAdr.Count + FBCCAdr.Count;   GetMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));   try     with MapiMessage do     begin       ulReserved := 0;       { Setting the Subject: }       lpszSubject := PChar(Self.FSubject);       { ... the Body: }       lpszNoteText := PChar(FMailText);       lpszMessageType := nil;       lpszDateReceived := nil;       lpszConversationID := nil;       flFlags := 0;       { and the sender: (MAPI_ORIG) }       Sender.ulReserved := 0;       Sender.ulRecipClass := MAPI_ORIG;       Sender.lpszName := PChar(FromName);       Sender.lpszAddress := PChar(FromAdress);       Sender.ulEIDSize := 0;       Sender.lpEntryID := nil;       lpOriginator := @Sender;       PRecip := Recipients;       { We have multiple recipients: (MAPI_TO)         and setting up each: }       if nRecipCount > 0 then       begin         for i := 1 to FTOAdr.Count do         begin           PRecip^.ulReserved := 0;           PRecip^.ulRecipClass := MAPI_TO;           { lpszName should carry the Name like in the             contacts or the adress book, I will take the             email adress to keep it short: }           PRecip^.lpszName := PChar(FTOAdr.Strings[i - 1]);           { If you use this component with Outlook97 or 2000             and not some of Express versions you will have to set             'SMTP:' in front of each (email-) adress. Otherwise             Outlook/Mapi will try to handle the Email on itself.             Sounds strange, just erease the 'SMTP:', compile, compose             a mail and take a look at the resulting email adresses             (right click).           }           PRecip^.lpszAddress := PChar('SMTP:' + FTOAdr.Strings[i - 1]);           PRecip^.ulEIDSize := 0;           PRecip^.lpEntryID := nil;           Inc(PRecip);         end;         { Same with the carbon copy recipients: (CC, MAPI_CC) }         for i := 1 to FCCAdr.Count do         begin           PRecip^.ulReserved := 0;           PRecip^.ulRecipClass := MAPI_CC;           PRecip^.lpszName := PChar(FCCAdr.Strings[i - 1]);           PRecip^.lpszAddress := PChar('SMTP:' + FCCAdr.Strings[i - 1]);           PRecip^.ulEIDSize := 0;           PRecip^.lpEntryID := nil;           Inc(PRecip);         end;         { ... and the blind copy recipients: (BCC, MAPI_BCC) }         for i := 1 to FBCCAdr.Count do         begin           PRecip^.ulReserved := 0;           PRecip^.ulRecipClass := MAPI_BCC;           PRecip^.lpszName := PChar(FBCCAdr.Strings[i - 1]);           PRecip^.lpszAddress := PChar('SMTP:' + FBCCAdr.Strings[i - 1]);           PRecip^.ulEIDSize := 0;           PRecip^.lpEntryID := nil;           Inc(PRecip);         end;       end;       lpRecips := Recipients;       { Now we process the attachments: }       if FAttachedFileName.Count > 0 then       begin         nFileCount := FAttachedFileName.Count;         GetMem(Attachments, MapiMessage.nFileCount * sizeof(TMapiFileDesc));         PFiles := Attachments;         { Fist setting up the display names (without path): }         FDisplayFileName.Clear;         for i := 0 to FAttachedFileName.Count - 1 do           FDisplayFileName.Add(ExtractFileName(FAttachedFileName));         if nFileCount > 0 then         begin           { Now we pass the attached file (their paths) to the             structure: }           for i := 1 to FAttachedFileName.Count do           begin             { Setting the complete Path }             Attachments^.lpszPathName := PChar(FAttachedFileName.Strings[i - 1]);             { ... and the displayname: }             Attachments^.lpszFileName := PChar(FDisplayFileName.Strings[i - 1]);             Attachments^.ulReserved := 0;             Attachments^.flFlags := 0;             { Position has to be -1, please see the WinApi Help               for details. }             Attachments^.nPosition := Cardinal(-1);             Attachments^.lpFileType := nil;             Inc(Attachments);           end;         end;         lpFiles := PFiles;       end       else       begin         nFileCount := 0;         lpFiles := nil;       end;     end;     { Send the Mail, silent or verbose:       Verbose means in Express a Mail is composed and shown as setup.       In non-Express versions we show the Login-Dialog for a new       session and after we have choosen the profile to use, the       composed email is shown before sending       Silent does currently not work for non-Express version. We have       no Session, no Login Dialog so the system refuses to compose a       new email. In Express Versions the email is sent in the       background.      }     if FShowDialog then       MError := MapiSendMail(0, AppHandle, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)     else       MError := MapiSendMail(0, AppHandle, MapiMessage, 0, 0);     { Now we have to process the error messages. There are some       defined in the MAPI unit please take a look at the unit to get       familiar with it.       I decided to handle USER_ABORT and SUCCESS as special and leave       the rest to fire the "new" error event defined at the top (as       generic error)       Not treated as special:       MAPI_E_AMBIGUOUS_RECIPIENT,         MAPI_E_ATTACHMENT_NOT_FOUND,         MAPI_E_ATTACHMENT_OPEN_FAILURE,         MAPI_E_BAD_RECIPTYPE,         MAPI_E_FAILURE,         MAPI_E_INSUFFICIENT_MEMORY,         MAPI_E_LOGIN_FAILURE,         MAPI_E_TEXT_TOO_LARGE,         MAPI_E_TOO_MANY_FILES,         MAPI_E_TOO_MANY_RECIPIENTS,         MAPI_E_UNKNOWN_RECIPIENT:     }     case MError of       MAPI_E_USER_ABORT:         begin           if Assigned(FOnUserAbort) then             FOnUserAbort(Self);         end;       SUCCESS_SUCCESS:         begin           if Assigned(FOnSuccess) then             FOnSuccess(Self);         end     else begin         if Assigned(FOnMapiError) then           FOnMapiError(Self, MError);       end;     end;   finally     { Finally we do the cleanups, the message should be on its way }     FreeMem(Recipients, MapiMessage.nRecipCount * sizeof(TMapiRecipDesc));   end; end; {   Please treat this as free. If you improve the component   I would be glad to get a copy. } end.

sunys · 2001-08-24

EMAIL 的控件我也有，我就想用ShellExecute 这个函数，因为这个简单。

Kingron · 2001-08-24

嗨，早说啊。目前我看用ShellExecute没有办法了。

sunys · 2001-08-24

其他都可以，就是这个附件不行，还真奇怪，前面有人说他有办法的，不过要高分，我可没多少分数了 哈哈哈哈

用shellexecute发送邮件的问题(50分)

deanjoy

Unregistered / Unconfirmed

ljqljq

Unregistered / Unconfirmed

deanjoy

Unregistered / Unconfirmed

Pan Ying

Unregistered / Unconfirmed

deanjoy

Unregistered / Unconfirmed

枫之叶

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

枫之叶

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

蓝狐

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

Kingron

Unregistered / Unconfirmed

sunys

Unregistered / Unconfirmed

Similar threads