vb JMail简单使用指南
发布时间:2020-12-16 22:16:08 所属栏目:大数据 来源:网络整理
导读:vb JMail Sub test2()' On Error GoTo Err_test2 Dim Jmail Set Jmail = CreateObject("jmail.Message") Jmail.Charset = "gb2312"‘设置邮件的编码 Jmail.Silent = False Jmail.Priority = 1 '设置邮件的重要性 Jmail.MailServerUserName = "username" '设置
vb JMail
Sub test2() ' On Error GoTo Err_test2 Dim Jmail Set Jmail = CreateObject("jmail.Message") Jmail.Charset = "gb2312"‘设置邮件的编码 Jmail.Silent = False Jmail.Priority = 1 '设置邮件的重要性 Jmail.MailServerUserName = "username" '设置邮件的用户名 Jmail.MailServerPassWord = "123456"'设置邮件的密码 Jmail.FromName = "AAA"'设置邮件显示的发件人 Jmail.From = "username@exmple.com"’设置你的发件箱 Jmail.Subject = "abcd"'设置你的邮件标题 Jmail.AddRecipient "recevied1@exmple.com"'设置收件人信箱 Jmail.Body = "aaaaaaaa"'设置邮件正文 Jmail.AddAttachment CurrentProject.Path + "a1.txt"'设置附件 Jmail.Send ("192.168.1.1")'设置SMTP服务器地址 Set Jmail = Nothing'释放 Err_test2: Debug.Print Err.Description End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |