[英]delphi 6 how to sending email using CDO_TLB
我知道這是一個古老的話題,我試圖在互聯網上尋找解決方案。 該代碼有些直截了當,但無法使其正常工作。
我已經有了代碼,但是delphi 6給了我一條消息
“ SendUsing”配置值無效
我的目標是將文件附件發送到我自己的Gmail帳戶。
procedure TForm1.Button1Click(Sender: TObject);
var
M: IMessage;
s: string;
begin
//uses CDO_TLB;
M := CoMessage.Create;
M.From := 'myname@gmail.com';
M.To_ := 'myname@gmail.com';
M.Subject := 'This is subject' + datetimetostr(now);
M.TextBody := 'This is text body' + datetimetostr(now);
s := 'http://schemas.microsoft.com/cdo/configuration/';
with M.Configuration.Fields do begin
Item[s + 'sendusing'].Value := cdoSendUsingPort;
Item[s + 'smtpserver'].Value := 'smtp.gmail.com';
Item[s + 'smtpauthenticate'].Value := cdoBasic ;
Item[s + 'sendusername'].Value := 'myname';
Item[s + 'sendpassword'].Value := 'mypassword';
Item[s + 'smtpserverport'].Value := 465;
Item[s + 'smtpusessl'].Value := False;
Item[s + 'smtpconnectiontimeout'].Value := 5; // default is 30 seconds
Update;
end;
try
M.Send;
// success
except
// fail
on E: Exception do
ShowMessage(E.Message);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
M: IMessage;
s: string;
begin
//uses CDO_TLB;
M := CoMessage.Create;
M.From := 'myname@gmail.com';
M.To_ := 'myname@gmail.com';
M.Subject := 'This is subject' + datetimetostr(now);
M.TextBody := 'This is text body' + datetimetostr(now);
s := 'http://schemas.microsoft.com/cdo/configuration/';
with M.Configuration.Fields do begin
Item[s + 'sendusing'].Value := cdoSendUsingPort;
Item[s + 'smtpserver'].Value := 'smtp.gmail.com';
Item[s + 'smtpauthenticate'].Value := cdoBasic ;
Item[s + 'sendusername'].Value := 'myname@gmail.com';
Item[s + 'sendpassword'].Value := 'mypassword';
Item[s + 'smtpserverport'].Value := 465;
Item[s + 'smtpusessl'].Value := True;
Item[s + 'smtpssl'].Value:='yes';
Item[s + 'smtpconnectiontimeout'].Value := 5; // default is 30 seconds
Update;
end;
try
M.Send;
// success
ShowMessage('Sukses mengirim email!');
except
// fail
on E: Exception do
ShowMessage(E.Message);
end;
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.