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;