vbs脚本发送邮件

NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "[email protected]"
'Email.To ="[email protected]"
Email.To = "[email protected]"
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") = "[email protected]"
.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") = "[email protected]"
Flds.Item(schema & "sendpassword") = "xxx"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
'.To = "[email protected]"
.To = "[email protected]"
.From = "[email protected]"
.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:= '[email protected]' ;
    From . address:= '[email protected]' ;
    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 ;