Tag: outlook 2007

VBA：发送邮件时更改文本样式

我使用Excel来发送电子邮件作为正文使用文本框中的文本。 这工作正常，除了发送邮件时，它只复制文本的字体大小，而不是它的颜色或样式。 我做了大量的研究，但没有find任何解决scheme。 有没有一个代码，允许Excel复制文本的文本风格以及其内容？ 这里是发送邮件的代码： Sub SendMail() Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim strbody As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) strbody = ThisWorkbook.Sheets("Mail").Shapes("txt").DrawingObject.Text 'I named the textbox "txt" in the worksheet 'On Error Resume Next With OutMail .To = "…@…com" .CC = "" .BCC = "" .Subject = […]

如何从Outlookmacros发送Excel图表

我达到了运行规则和警报的前景macros的地步。 macros从邮件地址search邮件，当它find它时，它将它移动到一个子文件夹，然后只提取邮件正文中的数字，打开Excel，粘贴数字和邮件date到Excel下一个空闲行，更新Excel，保存并closures它。 最后它将邮件移动到DONE目录并将其标记为已读。 在Excel中有一个数据透视表来创build一个图表（图3）。 现在我想从excel发送graphics到邮件收件人，我发现很多方法从Excel邮件graphics，但不是从Outlookmacros。 这是我到目前为止： Sub MoveItems(Item As Outlook.MailItem) '**************************************************************************** '* Find mail from sender and move them from the inbox to the rquests folder * '**************************************************************************** Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.Folder Dim myDestFolder As Outlook.Folder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = Application.GetNamespace("MAPI") Set myInbox = […]