vbs脚本发送邮件

时间:2022-03-06 02:53:26

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;