Excel发邮件， 如何选择发件人（二选一），如何更改邮件的字体？

mineshine

1. 
   
2. ' 发送单个邮件的子程序
   
3. Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String, ByVal CC As String)
   
4.     Dim ObjOL As Object
   
5.     Dim itmNewMail As Object
   
6.     Dim mailaddress As String
   
7.     'Dim OutMail As Outlook.MailItem
   
8.     'Dim OutApp As Outlook.Application
   
9.     '引用Microsoft Outlook 对象
   
10.     Set ObjOL = CreateObject("Outlook.Application")
    
11.     Set itmNewMail = ObjOL.CreateItem(olMailItem)
    
12.     With itmNewMail
    
13.         .subject = subject  '主旨
    
14.         .body = body   '正文本文
    
15.         .To = to_who  '收件者
    
16.         .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
    
17.         .CC = CC  '抄送
    
18.         .SendUsingAccount = ObjOL.Session.Accounts.Item(2)
    
19.         .Display  '启动Outlook发送窗口
    
20.         'SetTimer 0, 0, 0, AddressOf WinProcA
    
21.     End With
    
22.     Set ObjOL = Nothing
    
23.     Set itmNewMail = Nothing
    
24. End Sub
    

复制代码

tyxvba7529

mineshine 发表于 2014-6-17 14:57

不管括号里面是1，还是2. 发送邮件都只用account1       .SendUsingAccount = ObjOL.Session.Accounts.Item(2)

在excel下改成Object后Sub Which_Account_Number()测试成功

说明一下， 在outlook下打开的VBA  这个两个account测试成功。Sub Mail_small_Text_Change_Account()

mineshine

tyxvba7529 发表于 2014-6-17 15:20
不管括号里面是1，还是2. 发送邮件都只用account1       .SendUsingAccount = ObjOL.Session.Accounts.It ...

你可以用给你的网页第一个代码举一反三
括号里面可以应用For...Next.....，迖到你要的用不同Accuount发送邮件。

tyxvba7529

mineshine 发表于 2014-6-17 15:31
你可以用给你的网页第一个代码举一反三
括号里面可以应用For...Next.....，迖到你要的用不同Accuount发送 ...

感谢你的帮忙，我是需要用第二个账户发邮件的，这不用循环语句吧？
   在outlook下打开的VBA 用 Sub Mail_small_Text_Change_Account()， account（1）用第一个account发， account（2）用第二个账户发。 正确；
   在excel下的VBAaccount（1）用第一个account发， account（2）还是第一个账户发； 我需要第二个账户根据我excel里面的内容发邮件。

mineshine

tyxvba7529 发表于 2014-6-17 15:38
感谢你的帮忙，我是需要用第二个账户发邮件的，这不用循环语句吧？
   在outlook下打开的VBA 用 Sub Mai ...

以第一个程序测试得到结果是完整MailAddress吗?
如果是，.SendUsingAccount = "你的Maill@aa.aa"
这你可以自行测试吧?

自己试试，你行的，谢谢。

tyxvba7529

mineshine 发表于 2014-6-17 15:41
以第一个程序测试得到结果是完整MailAddress吗?
如果是，.SendUsingAccount = "你的"
这你可以自行测试 ...

好的，你真是个好人。 等我好消息。

tyxvba7529

mineshine 发表于 2014-6-17 15:41
以第一个程序测试得到结果是完整MailAddress吗?
如果是，.SendUsingAccount = "你的"
这你可以自行测试 ...

老师， 这样测试也不成功， 不知道问题出在哪里了。
Sub Which_Account_Number()这个测试是可以得到完整的mailaddress的

但.SendUsingAccount = "mailaddress"不可以

但Sub Mail_small_Text_Change_Account()在vbaProject.OTM那边测试是可以的， 难道是bug吗？

mineshine

tyxvba7529 发表于 2014-6-20 09:14
老师， 这样测试也不成功， 不知道问题出在哪里了。
Sub Which_Account_Number()这个测试是可以得到完整 ...

找到问题点了，在定义itmNewMail如果是Object，程序只当是物件，不是Outlook Account，
所以永遠以预设账户发邮件。

把itmNewMail定义Outlook.MailItem就可以指定以第二个账户发邮件。

首先请依13楼"VBA万岁"的说明引用Microsoft Outlook 12.0 Object Library以上的引用项目。

21楼代码改如下：

1. 
   
2. ' 发送单个邮件的子程序
   
3. Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String, ByVal CC As String)
   
4.     Dim ObjOL As Object
   
5.    Dim itmNewMail As Outlook.MailItem
   
6.     Dim mailaddress As String
   
7.     'Dim OutMail As Outlook.MailItem
   
8.     'Dim OutApp As Outlook.Application
   
9.     '引用Microsoft Outlook 对象
   
10.     Set ObjOL = CreateObject("Outlook.Application")
    
11.     Set itmNewMail = ObjOL.CreateItem(olMailItem)
    
12.     With itmNewMail
    
13.         .subject = subject  '主旨
    
14.         .body = body   '正文本文
    
15.         .To = to_who  '收件者
    
16.         .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
    
17.         .CC = CC  '抄送
    
18.         .SendUsingAccount = ObjOL.Session.Accounts.Item(2)
    
19.         .Display  '启动Outlook发送窗口
    
20.         'SetTimer 0, 0, 0, AddressOf WinProcA
    
21.     End With
    
22.     Set ObjOL = Nothing
    
23.     Set itmNewMail = Nothing
    
24. End Sub
    

复制代码

tyxvba7529

mineshine 发表于 2014-6-20 10:37
找到问题点了，在定义itmNewMail如果是Object，程序只当是物件，不是Outlook Account，
所以永遠以预设账 ...

好啦， 好啦。谢谢！！！！
知识的力量好强大！！！

zmnyu

马克，你真棒