注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

hurt0759的个人主页

人生常态--跋涉.人生暂态--歇息.

 
 
 

日志

 
 

VB.NET 发邮件带附件  

2016-03-23 15:43:21|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


  Dim myClient As New SmtpClient
        Dim FromAddress As New MailAddress("username@163.com")'THE TEST FOR THE SAME USER
        Dim ToAddress As New MailAddress("username@163.com")'THE TEST FOR THE SAME USER
        Dim myMsg As New MailMessage()
        Dim myAttachedFile As String
        With myMsg
            .From = FromAddress                 'From
            .To.Add(ToAddress)                  'Recipient
            .Subject = "sub"                'Subject
            .Body = "bo"                      'Body
            .BodyEncoding = System.Text.Encoding.GetEncoding("gb2312")
            .IsBodyHtml = True                  'Html Form
            .Priority = MailPriority.High       'Priority
            myAttachedFile = "D:\qq_ac\printer.txt"
            If myAttachedFile <> "" Then        'Attached File
                If FileIO.FileSystem.FileExists(myAttachedFile) Then
                    .Attachments.Add(New Attachment(myAttachedFile))
                End If
            End If
        End With

        With myClient
            .Host = "smtp.163.com"                'Host
            .Port = 25              'Port
            .EnableSsl = True                   'Ssl
            .UseDefaultCredentials = False      'Credentials
            'User Name And Password
            .Credentials = New System.Net.NetworkCredential("username@163.com", "pwd")
            .DeliveryMethod = SmtpDeliveryMethod.Network
        End With

        Try
            myClient.Send(myMsg)                'Send Email
            MsgBox("ok")                       'Email Has been Sent
        Catch ex As Exception
            MsgBox("bad")               'Error
        Finally
            'myMsg.Attachments.Clear()
            myMsg.Attachments.Dispose()
            myMsg = Nothing
            myClient = Nothing
        End Try

'要注意:附件的文件路径不能有中文名,否则发送不出去.
  评论这张
 
阅读(172)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017