Tag: mailitem

VBA Outlook Mailitem – 不显示所有项目

下面的代码不会收到收件箱中的所有电子邮件。 我的列表框中的第一项是昨天和去年4月22日的一封电子邮件，尽pipe我的邮箱里包含了很多信息。 Sub CheckEmail() On Error Resume Next Dim outApp As Outlook.Application Dim outNs As Outlook.Namespace Dim outFldr As Outlook.MAPIFolder Dim outEmail As Outlook.MailItem Dim p As Integer p = 0 Set outApp = CreateObject("Outlook.Application") Set outNs = outApp.GetNamespace("MAPI") Set outFldr = outNs.GetDefaultFolder(olFolderInbox) Dim searcht As String 'find search string ' do search For Each […]

VBA在MailItem中调整粘贴的JPEG大小

我试图用Excel工作表发送VBA图片，但是我得到的大小非常小。 你现在怎么能把它变得更体面（基本上是整个屏幕？） 这里是代码： Sub send_as_a_pic() 'Copy range of interest Dim r As Range Set r = Range("B2:O23") r.Copy 'Open a new mail item Dim outlookApp As Outlook.Application Set outlookApp = CreateObject("Outlook.Application") Dim outMail As Outlook.MailItem Set outMail = outlookApp.CreateItem(olMailItem) With outMail .To = "fernando.grespan@fernando.com" .CC = "" .BCC = "" .Subject = "PAC 2017 sales […]