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

闻启学

tyxvba7529 发表于 2014-6-17 13:59
在outlook那边的VBA编辑器添加此模块代码，测试成功， 但我需要在excel中用， copy 代码到excel的VBA编辑 ...

我刚刚测试过无问题啊
在Excel 里

VBA万岁

tyxvba7529 发表于 2014-6-17 13:59
在outlook那边的VBA编辑器添加此模块代码，测试成功， 但我需要在excel中用， copy 代码到excel的VBA编辑 ...

reference是“引用”——是让你在在VBE中添加“引用”。

VBA万岁

VBA万岁 发表于 2014-6-17 14:23
reference是“引用”——是让你在在VBE中添加“引用”。

参考如下截图：

tyxvba7529

VBA万岁 发表于 2014-6-17 14:26
参考如下截图：

恩， 谢谢。 这个我早就设置好的。

只是不知道代码在我这里显示如下图
显示 Dim OutApp As Outlook.Application用户类型未定义？？？？？
D:\11.jpg

mineshine

tyxvba7529 发表于 2014-6-17 14:34
恩， 谢谢。 这个我早就设置好的。

只是不知道代码在我这里显示如下图

Dim OutApp As Outlook.Application
改成
Dim OutApp As Object
或改成
Dim OutApp

tyxvba7529

闻启学 发表于 2014-6-17 14:10
我刚刚测试过无问题啊
在Excel 里

代码在我这里显示如下图
显示 Dim OutApp As Outlook.Application用户类型未定义？？？？？

VBA万岁

mineshine 发表于 2014-6-17 14:37
Dim OutApp As Outlook.Application
改成
Dim OutApp As Object

我这里在Excel中测试通过（改与不改都通过）。

tyxvba7529

mineshine 发表于 2014-6-17 13:49
网页提供的第一段代码，可以测试你的Outlook有多少个mailaddress。

Dim OutApp As Outlook.Applicatio ...

不好意思， 老师。 我应用过来还是有问题， 可以帮我改一下代码吗？囧~~~

' 发送单个邮件的子程序
Sub SendMail(ByVal to_who As String, ByVal subject As String, ByVal body As String, ByVal attachement As String, ByVal CC As String)

    Dim objOL As Object

    Dim itmNewMail As Object
   
    Dim mailaddress As String
   
    Dim OutApp
   
    'Dim OutMail As Outlook.MailItem
   
    'Dim OutApp As Outlook.Application

    '引用Microsoft Outlook 对象

    Set objOL = CreateObject("Outlook.Application")

    Set itmNewMail = objOL.CreateItem(olMailItem)
   
    With itmNewMail

        .subject = subject  '主旨

        .body = body   '正文本文
        
        .To = to_who  '收件者

        .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
        
        .CC = CC  '抄送
        
        .SendUsingAccount = OutApp.Session.Accounts.Item(2)
        
        .Display  '启动Outlook发送窗口

        'SetTimer 0, 0, 0, AddressOf WinProcA

    End With

    Set objOL = Nothing

    Set itmNewMail = Nothing

End Sub

mineshine

VBA万岁 发表于 2014-6-17 14:45
我这里在Excel中测试通过（改与不改都通过）。

我的也不过，改了才通过。
提供了方法，就不知楼主试不试了。

mineshine

tyxvba7529 发表于 2014-6-17 14:47
不好意思， 老师。 我应用过来还是有问题， 可以帮我改一下代码吗？囧~~~

' 发送单个邮件的子程序

Set objOL = CreateObject("Outlook.Application")
和
SendUsingAccount = OutApp.Session.Accounts.Item(2)引用对象不一致
改
SendUsingAccount = objOL.Session.Accounts.Item(2)