vbs脚本发送邮件

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 ;

转载于:https://www.cnblogs.com/hnxxcxg/p/3544619.html