请教一下，如何让他支持中文路径名和中文主题内容~~
- 湖蓝
- Set objEmail=CreateObject("CDO.Message")
Call SendMail()
Sub SendMail
objEmail.From="[email protected]" '发件人
objEmail.To="[email protected]" '收件人
objEmail.Cc="[email protected]" '抄送收件人
objEmail.Bcc="[email protected]" '密送收件人
objEmail.Subject="Daily" '电子邮件主题主题
objEmail.Textbody="hello" '电子邮件内容
objEmail.AddAttachment "E:\CKD.xlsm" '附件地址，注意中间是两个空格
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.163.com" 'SMTP服务器地址
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername")="test" '用户名
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword")="不是密码，是163给你的密钥" '密码
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 '明文验证
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 'SMTP端口号
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl")=false '不使用SSL，如果使用SSL，则是true，上面端口要修改为465
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=60 '超时
objEmail.Configuration.Fields.Update
objEmail.Send
End Sub - wsyx87930估计是要在前面声明utf8吧
- 湖蓝
- 湖蓝有人知道么，帮忙解决一下