Dim smtp As New SystemNetMailSmtpClient("smtp163com", 25)
'发件邮箱身份验证,参数分别为 发件邮箱登录名和密码
smtpCredentials = New SystemNetNetworkCredential("用户名", "密码")
'创建邮件
Dim mail As New SystemNetMailMailMessage()
'邮件主题
mailSubject = "邮件主题"
'主题编码
mailSubjectEncoding = SystemTextEncodingGetEncoding("GB2312")
'邮件正文件编码
mailBodyEncoding = SystemTextEncodingGetEncoding("GB2312")
'发件人邮箱
mailFrom = New SystemNetMailMailAddress("example@163com")
'邮件优先级
mailPriority = SystemNetMailMailPriorityNormal
'HTML格式的邮件,为false则发送纯文本邮箱
mailIsBodyHtml = True
'邮件内容
mailBody = "邮件正文内容"
'添加收件人,如果有多个,可以多次添加
mailToAdd("收件人地址")
'定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
'如果不需要附件,下面三行可以不要
Dim a As New SystemNetMailAttachment("附件文件")
'附件文件名,用于收件人收到附件时显示的名称
aName = "附件文件名"
'加入附件,可以多次添加
mailAttachmentsAdd(a)
'发送邮件
Try
smtpSend(mail)
MessageBoxShow("发送成功")
Catch
MessageBoxShow("发送失败")
Finally
mailDispose()
End Try>你好 这是qmail,发送合适的节目 我恐怕无法提供你以下信息 地址 这是一个长期的错误; 我放弃了 抱歉,并没有成功 <moqi@cs-cnnet>: 6113513271不愿接受 主办偏远说:554<moqi@cs-cnnet>:拒绝接受处理: #拒绝接受中继1-062 6113513271放弃 --以下是此行的一份电文 返回的道路:<ilovechenzhiqiang@yahoocomcn> 收到:(Qmail引用票据6000167388); 2006年5月30日4时57分54秒 -0000 DomainKey的签名:南非=-SHA1; Q=DNS; C=nofws; s1024's; D=yahoocomcn; H=信息标识符:收到:日期::专题::MIME-版本:内容类型:内容转移编码; B=0an0y8jl477ewj3b3nrzblys61jdooqmb4TQAAHBFTLRDHEMVBWE8ZCHTKZY9OXKGVVQCXEUUD6TRMQKIXNENMSA7QUHAOJYASLYBNDEHCGOTYRRRZCRU/DV4/2CB4+++OJHQLFT99TLKG2AL2E1/SUPFXP0CGILVVASQNM9I+= 信息标识符:<2006053004575467386qmail@web15313mailcnbyahoocom> 收到:[218415946]web15313mailcnbyahoocom通过>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)