Sub SendToMail()
If Range("A1")>=5 Then Exit Sub '假如需要检测的是A1单元格数据,可自行修改
Set Email = CreateObject("CDO.Message")
qq="XXX"'这里是你的qq号码
pass="***"'这里输入你的密码
strName = "
Email.From = qq&"@qq.com"
Email.To = "
[email protected]"'目的邮箱地址
'Email.cc="
[email protected]" '抄送
Email.Subject = ZhuTi '邮件的主题
Email.Textbody =XXX '邮件内容
With Email.Configuration.Fields
.Item(strName & "sendusing") = 2
.Item(strName & "smtpserver") = "smtp.qq.com"
.Item(strName & "smtpserverport") = 25
.Item(strName & "smtpauthenticate") = 1
.Item(strName & "sendusername") = qq
.Item(strName & "sendpassword") = pass
.Update
End With
Email.Send
End Sub
追问请问用outlook邮箱发的话,代码该如何写?