NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "hnxxcxg@sohu.com"
'Email.To ="hnxxcxg.ca71ad8@m.yinxiang.com"
Email.To = "254072148@qq.com"
Email.Subject = "say hello"
Email.Textbody = "test body "
'Email.AddAttachment ""
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.sohu.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "hnxxcxg@sohu.com"
.Item(NameSpace&"sendpassword") = "XXX"
.Update
End With
Email.Send
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
'Flds.Item(schema & "smtpserverport") = 587
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "gz02189@gmail.com"
Flds.Item(schema & "sendpassword") = "xxx"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
'.To = "hnxxcxg128.8f33072@m.yinxiang.com"
.To = "254072148@qq.com"
.From = "gz02189@gmail.com"
.Subject = wscript.arguments.item(0)
.HTMLBody = message
.Sender = " "
.Organization = " "
.ReplyTo = " "
Set .Configuration = iConf
SendEmailGmail = .Send
End With
set iMsg = nothing
set iConf = nothing
set Flds = nothing
procedure TForm1.SendMail;
begin with IdSMTP1 do
begin
Host:='smtp.163.com';
Port:=25;
Username:='XXOO';
Password:='13800138000';
AuthenticationType:=atLogin;
end;
with IdMessage1 do
begin
MessageParts.Clear;
Recipients.EMailAddresses:='10086@qq.com';
From.address:='XXOO@163.com';
Subject:='Hello';
Body.Add('Hello World');
end;
TIdAttachment.Create(IdMessage1.MessageParts,'D:\1.xls');
try
IdSMTP1.Connect;
except on E: Exception do
begin
showmessage('连接服务嚣失败:'+E.Message);
exit;
end;
end;
try
if IdSMTP1.Authenticate then
begin
try
IdSMTP1.Send(IdMessage1);
except on E: Exception do
begin
showmessage('在发送过程中发生错误:'+E.Message);
exit;
end;
end;
showmessage('发送成功!');
end;
finally
IdSMTP1.Disconnect;
end;
end;