主题：邮件能不能做到 foxmail outlook 哪里设置抄送人

参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=72102&skin=0

老师 看了

是不是说 狐表自带的 没有 CC 的 方法？

另外 我看了你发的内容

用 mailto 需要用到 outlook

Dim Proc As New Process

Proc.File = "mailto:" & Receiver & "?cc=" & Cc & "&bcc=" & Bcc & "&subject=" & Subject & "&body=" & Body

Proc.Start()

有没 能够直接一次性的方法？

汗

Dim Proc As New Process

Proc.File = "mailto:dreamdu@163.com?cc=dreamdu@sina.com"

Proc.Start()

老师 ，你的方法测试过要先设置好 outlook 才行哦  我们有些电脑都没设置 。

下边的代码 我在论坛里面找到的，测试过可行

但不懂怎么设置，添加收件人的邮箱地址。能指导下么

Dim client As New System.Net.Mail.SmtpClient()
client.Host = "smtp.126.com"
client.Credentials = New System.Net.NetworkCredential("lin_hailun@126.com", "6849338.")
client.DeliveryMethod = System.Net.Mail.SmtpDeliveryMethod.Network
Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")
message.Subject = "邮件测试"
message.BodyEncoding = System.Text.Encoding.UTF8

'message.Bcc.Add("2450314695@qq.com") '密送

'message.cc.Add("2450314695@qq.com") '抄送

Dim content As String

content &= "这是文字" & vbcrlf
content &= "也是文字"

message.Body = content

Try
    client.Send(message)
    msgbox("发送成功")
Catch ex As Exception
    msgbox("发送失败:" & ex.message)
End Try

这句

Dim message As New System.Net.Mail.MailMessage("lin_hailun@126.com", "2450314695@qq.com")

初次设定 这样

  后边追加 邮箱 有没有简洁一点的写法吗 老师？

我要用循环来添加 邮箱

不能每次都 重新定义

 只能发给一个人，要多发，就用抄送啊

额 。这样啊。。。。。 好像有点不人性化！ 比 狐表更坏。。

我发会议请求 都是先发给 一堆人，  抄送给老大，

这样做不好操作...

老师有没点好的东西能适合用的哇