作者:mobiledu2502908043 | 来源:互联网 | 2023-06-23 13:08
IwanttoemailazippedcopyofmyworkbookusingOutlook.HowdoIextendthemacrobelow,sothat
I want to email a zipped copy of my workbook using Outlook. How do I extend the macro below, so that it attached a zipped workbook?
我想使用Outlook通过电子邮件发送工作簿的压缩副本。如何扩展下面的宏,以便它附加一个压缩的工作簿?
Sub EmailWorkbook()
Dim OL As Object, EmailItem As Object
Dim Wb As Workbook
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Wb = ActiveWorkbook
Wb.Save
With EmailItem
.Subject = "COB" & Format(Range("yesterday"), "ddMMMyy")
'.Body = ""
.To = "somewhere@maildomain.com"
'.Cc = ""
'.Bcc = ""
.Importance = olImportanceNormal
.Attachments.Add Wb.FullName
.Display
End With
Application.ScreenUpdating = True
Set Wb = Nothing
Set OL = Nothing
End Sub
2 个解决方案