Excel宏发送电子邮件

我有一个,我想通过Excel发送报告。 它将包含recipitents,主体和在主体中的信息。 实际上它可能有问题复制单元格。 我所做的,到目前为止是创建一个按钮和宏分配给它的代码:

Private Sub CommandButton1_Click() Application.Dialogs(xlDialogSendMail).Show arg1:=Sheets("Sheet1").Range("E3"), _ arg2:=Sheets("Sheet1").Range("E7") End Sub

问题是,这个命令将工作簿作为附件。

有人可以帮助我的代码,让我做到这一点。

太感谢了!

干杯

--------------解决方案-------------

设置参照“Microsoft Outlook的XX.X对象库”,你可以用这个代码做什么建立或发送电子邮件的例子:

由于这是它只会显示该邮件不发送。 您可以注释掉。显示行并取消注释。发送给刚刚发送。

Sub EmailFromExcel()
On Error GoTo PROC_EXIT
Dim OL As New Outlook.Application

Dim olMail As Outlook.MailItem
Set olMail = OL.CreateItem(olMailItem)

Dim SrcSheet As Excel.Worksheet
Set SrcSheet = Sheets("Sheet1")

With olMail
.To = SrcSheet.Range("E3").Text
.Subject = SrcSheet.Range("E7").Text
.Body = SrcSheet.Range("E12").Text
.Display vbModal
'.Send
End With

PROC_EXIT:
On Error GoTo 0
OL.Quit
Set OL = Nothing
End Sub

添加引用前景COM库; 然后你可以复制/粘贴价值与格式化你需要一个新的工作表,然后复制到Outlook邮件。

分类:高强 时间:2015-03-15 人气:3
分享到:

相关文章

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 1.003 (s). 10 q(s)