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