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

tyxvba7529

一、以下代码可实现Excel发送邮件， 但是我有两个邮件地址， 此只能用默认的发送人发送， 能否指定发送人邮件地址呢？？？？
二、这样发的邮件， 邮件内容的字体默认字体不是很大众，正式，不能用来发正式文件， 如何更改邮件的字体？？？

求指教


Public Declare Function SetTimer Lib "user32" _
        (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerfunc As Long) As Long
Public Declare Function KillTimer Lib "user32" _
        (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Function WinProcA(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal SysTime As Long) As Long
    KillTimer 0, idEvent
    DoEvents
    Sleep 100
    '使用Alt+S发送邮件,这是本文的关键之处,免安全提示自动发送邮件全靠它了
    Application.SendKeys "%s"
End Function
' 发送单个邮件的子程序
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
    '引用Microsoft Outlook 对象
    Set objOL = CreateObject("Outlook.Application")
    Set itmNewMail = objOL.CreateItem(olMailItem)
   
    mailaddress = "ZSCE_ECO-ENG@teczs.com"
   
    With itmNewMail
        .subject = subject  '主旨
        .body = body   '正文本文
        .To = to_who  '收件者
        .Attachments.Add attachement '附件,如果你不需要发送附件,可以把这一句删掉即可,Excel中的第四列留空,不能删哦
        
        .CC = CC  '抄送
        .Display  '启动Outlook发送窗口
        'SetTimer 0, 0, 0, AddressOf WinProcA
    End With
    Set objOL = Nothing
    Set itmNewMail = Nothing
End Sub
'批量发送邮件
Sub BatchSendMail()
    Dim rowCount, endRowNo
    endRowNo = Cells(1, 1).CurrentRegion.Rows.Count
    '逐行发送邮件
    For rowCount = 1 To endRowNo
        SendMail Cells(rowCount, 1), Cells(rowCount, 2), Cells(rowCount, 3), Cells(rowCount, 4), Cells(rowCount, 5)
    Next
End Sub

VBA万岁

路过，支持一下。

闻启学

回答第二个问

可以使用html 标签 将将字体变大  

<boby  size =“50”>邮件正文 </boby>

mineshine

第一个问题
要2007以上版本才能使用
SendUsingAccount

参考
Use the mail account you want in your mail macro
http://www.rondebruin.nl/win/s1/outlook/account.htm

tyxvba7529

mineshine 发表于 2014-6-17 13:23
第一个问题
要2007以上版本才能使用
SendUsingAccount

set a reference to Outlook in the VBA editor
这怎么弄的呀， 示例代码在我这里显示“用户定义类型未定义”

tyxvba7529

闻启学 发表于 2014-6-17 13:02
回答第二个问

可以使用html 标签 将将字体变大  

我需要改字体， 只大小不可以， 谢谢。

mineshine

问题二，查一下网络HTML语法。
<Font Face=Times Roman Size=4.5 Color=blue>

参考2楼代码
http://club.excelhome.net/thread-396852-1-1.html

mineshine

tyxvba7529 发表于 2014-6-17 13:39
set a reference to Outlook in the VBA editor
这怎么弄的呀， 示例代码在我这里显示“用户定义类型未定 ...

网页提供的第一段代码，可以测试你的Outlook有多少个mailaddress。

Dim OutApp As Outlook.Application
这句定义改成
Dim OutApp

1. 
   
2. Sub Which_Account_Number()
   
3. 'Don't forget to set a reference to Outlook in the VBA editor
   
4.     Dim OutApp
   
5.     Dim I As Long
   
6.     Set OutApp = CreateObject("Outlook.Application")
   
7.     For I = 1 To OutApp.Session.Accounts.Count
   
8.         MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I
   
9.     Next I
   
10. End Sub
    

复制代码

闻启学

mineshine 发表于 2014-6-17 13:23
第一个问题
要2007以上版本才能使用
SendUsingAccount

多谢指导 有时间交流一下outlook

tyxvba7529

tyxvba7529 发表于 2014-6-17 13:39
set a reference to Outlook in the VBA editor
这怎么弄的呀， 示例代码在我这里显示“用户定义类型未定 ...

在outlook那边的VBA编辑器添加此模块代码，测试成功， 但我需要在excel中用， copy 代码到excel的VBA编辑器中不行呢，显示“用户定义类型未定 ...