利用Jmail接收邮件

最新推荐文章于 2019-06-20 12:01:16 发布

原创最新推荐文章于 2019-06-20 12:01:16 发布 · 398 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #exception #服务器

.net 专栏收录该内容

2 篇文章

订阅专栏

Private Sub RecieveMail()
        Dim popMail As jmail.POP3 = New jmail.POP3
        Dim MailMS As jmail.Message
        Dim Atts As jmail.Attachments
        Dim att As jmail.Attachment
        Try
            popMail.Connect('13719073283', '密码', 'pop3.139.com')
            If popMail.Count > 0 Then
                Dim i As Integer
                For i = 1 To popMail.Count
                    '取得一条邮件信息
                    MailMS = popMail.Messages(i)
                    '取得该邮件的附件集合
                    Atts = MailMS.Attachments
                    '设置邮件的编码方式()
                    MailMS.Charset = 'GB2312'
                    '设置邮件的附件编码方式
                    MailMS.Encoding = 'Base64'
                    '是否将信头编码成iso-8859-1字符集
                    MailMS.ISOEncodeHeaders = False
                    MsgBox(MailMS.Subject & vbCr & vbCr & MailMS.Body)
                    Dim j As Integer
                    For j = 0 To Atts.Count - 1
                        att = Atts(j)
                        MsgBox(att.Name)
                        '上传到服务器
                        att.SaveToFile('d:/' & att.Name)
                    Next
                Next
            Else
                MsgBox('没有新邮件')
            End If