主题：[求助]我需要做一个输入mail地址，然后点击后面 按钮能自动发送mail内容。

哦。我知道了。谢谢。

好像不对啊。对应QQ列，附件列，只要点击后面的按钮都是变为发送mail。 点击QQ应该出现QQ对话框，点击附件应该出现与附件相关的内容才是。请帮我在临时版本跟踪系统5里面再看看。是哪里的问题。多谢。

哦，要改一下代码，如下

 

If e.Col.Name = "邮件" Then

    '发送邮件的代码

End If

请问，列属性扩展类属性设置为“邮件”，自定义项目增加几个邮件地址。然后发现不能发送mail，只能选择mail地址了。

这样改

 

Dim m As New MailSender
m.Host = "smtp.126.com"
m.Account = "lin_hailun@126.com"
m.Password = "6849338."
m.From = "lin_hailun@126.com"
m.To = "Spring.me@qq.com,Spring.me123@qq.com"
m.Title = "主题"
m.C 
m.Send
msgbox("发送完毕")

但这样应该没有出现选择邮箱地址的。应该是有多个邮箱供选择，选择其中一个或者多个，然后点击发送给选择者。

 你灵活改一下。哎

 

m.To = e.Row("邮件")

不要意思啊。

不要意思啊。 我的意思是邮箱这一列最好能出现一个下拉选项，可以选择不同的mail地址。是这个意思。而不是直接制定收件人。 可否帮忙抽时间处理一下。不甚感激。

 回复19楼，你可以选择的，设置成自定义项目，选项二多个mail地址，代码不变，依然是可以发送的。

 

m.To = e.Row("邮件")