关于邮件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

图片点击可在新窗口打开查看此主题相关图片如下：1.bmp

此主题相关图片如下：2.bmp

请问邮件发送的时候怎么让发件人显示名字如图2？

[此贴子已经被作者于2014-12-23 8:38:05编辑过]

'创建发件连接,根据你的发送邮箱的SMTP设置填充
        Dim smtp As New System.Net.Mail.SmtpClient("smtp.163.com", 25)

        '发件邮箱身份验证,参数分别为 发件邮箱登录名和密码
        smtp.Credentials = New System.Net.NetworkCredential("用户名", "密码")

        '创建邮件
        Dim mail As New System.Net.Mail.MailMessage()

        '邮件主题
        mail.Subject = "邮件主题"

        '主题编码
        mail.SubjectEncoding = System.Text.Encoding.GetEncoding("GB2312")

        '邮件正文件编码
        mail.BodyEncoding = System.Text.Encoding.GetEncoding("GB2312")

        '发件人邮箱
        mail.From = New System.Net.Mail.MailAddress("example@163.com","李珊珊")

        '邮件优先级
        mail.Priority = System.Net.Mail.MailPriority.Normal

        'HTML格式的邮件,为false则发送纯文本邮箱
        mail.IsBodyHtml = True

        '邮件内容
        mail.Body = "邮件正文内容"

        '添加收件人,如果有多个,可以多次添加
        mail.To.Add("收件人地址")

        '定义附件,参数为附件文件名,包含路径,推荐使用绝对路径
        '如果不需要附件,下面三行可以不要
        Dim a As New System.Net.Mail.Attachment("附件文件")

        '附件文件名,用于收件人收到附件时显示的名称
        a.Name = "附件文件名"

        '加入附件,可以多次添加
        mail.Attachments.Add(a)

'发送邮件
        Try

            smtp.Send(mail)
            MessageBox.Show("发送成功")

        Catch

            MessageBox.Show("发送失败")

        Finally

            mail.Dispose()
        End Try

谢谢另外问一下如何用代码定时发送邮件？

以下是引用一笑在2014-12-23 22:36:00的发言：
谢谢另外问一下如何用代码定时发送邮件？

做一个计划，根据当前时间，筛选要发送的表数据，如果有内容，就发送

http://www.foxtable.com/help/topics/0657.htm

加入需要每天早上9点自动发送邮件，是否在计划里写成：

Dim t As Date = Date.Now
If t.Hour = 9 Then

发送邮件代码....

End if

1. 间隔时间设为多久合适？

2. 可否反过来实现自动接收邮件的相关内容？谢谢！

如果做好了计划定时发送邮件，项目发布后，运行的多个客户端多都会触发事件，都会定时发送同样的邮件吗？

以下是引用一笑在2014-12-24 20:03:00的发言：
如果做好了计划定时发送邮件，项目发布后，运行的多个客户端多都会触发事件，都会定时发送同样的邮件吗？

在服务器那里，单独运行一个有计时器的项目。

经过测试发现添加的附件不显示文件后缀，电脑上无法直接打开，如在手机上收邮件，则无法打开附件。请教专家有办法解决吗？谢谢！

主题：关于邮件