我想用vba实现自动发邮件的功能 邮件正文在sheet1上 收件人、邮箱分别在sheet2的A、B列

Posted 2023-04-12

是用的excel.

这是一个VBA函数发送邮件的例子。
你修改一下（例如添加一个循环）就可以得到你需要的应用。
*********************************************************************************
Public Sub MyMail(Address As String)
‘首先创建一个Outlook的应用程序的变量
Dim Ol As Outlook.Application
’把这个变量指向一个具体的Outlook应用
Set Ol = CreateObject("Outlook.Application")
‘创建一个邮件变量
Dim M As Outlook.MailItem
’把邮件变量指向由Outlook应用程序创建出的邮件实例
Set M = Ol.CreateItem(olMailItem)
‘为邮件填写发送地址——这个内容，今后用你的循环内容来赋值
M.To = Address
’把邮件发送出去
M.Send
End Sub
*********************************************************************************追问

我是菜鸟。麻烦告诉我一下那个循环内容怎么写。
如果方便的话，能QQ联系吗。

追答

学些VBA还是有必要的，只学一些基本的东西就好，今后工作事半功倍哦。特别是兄弟你这种喜欢“偷懒”的人——偷懒是人类进步的原动力哈。
***********************************************************************
举例说，在A列种有邮件地址，有100行，循环这么写：
Dim I as integer
for i=1 to 100
Dim M As Outlook.MailItem
Set M = Ol.CreateItem(olMailItem)
M.To = cells(i,1).value
M.Send
next i
**************************************************************************

追问

还是不太明白。。
能不能发一个完整的代码给我，就是问题中要求的那样。
十分感谢！

参考技术A 为什么不用word发

android 自动发邮件

如此自动发邮件,不要跳到写邮件界面.
邮件内容你代码中已经写好，需要自动发送出去。
OK, 已经找到解决方案.

请问是怎么实现自动发邮件的，能指点一下么。我也在写这个东西。点击之后会调转到系统发送邮件的界面，我想自动发送。不要跳转，也不用点击。怎么实现的呢追问

你需要拿到一个sender,然后将数据都save到表中,再调用senser的send方法,将邮件对应的message　id传进去.

追答

能麻烦您说的再具体一点么，能把这部分的源码贴出来或者发给我么。万分感谢。我QQ：331278393

参考技术A 手机中毒了，没办法安装了有毒的软件，或文件，下个杀毒软件，比如网秦，金山手机卫士，安卓