Tag: outlook

如何从excel复制范围到outlook忽略filter适用的第一列？

您好我有一个代码，将过滤A列中的唯一值，并复制整个范围从A1：H，但我想忽略第一列，并希望范围从B1：H复制。 例如：如果有一张带有学生分数的桌子，我想单独向每个学生张贴个人分数表。 这个macros是和第一列的学生名字一起发送的，但是我只需要标记表格，不需要学生的名字。 这是我的代码 Sub Send_Row_Or_Rows_1() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim Ash As Worksheet Dim Cws As Worksheet Dim Rcount As Long Dim Rnum As Long Dim FilterRange As Range Dim FieldNum As Integer Dim mailAddress As String Dim StrBody As String On Error GoTo cleanup Set […]

发送刷新的Excel表格每个工作日使用VBA Excel / Outlook

每天下午3点，我必须发一个Excel工作簿给同事。 工作簿中的macros只复制一个工作表中的所有单元格，并将select性粘贴到另一个工作表并保存该工作簿。 我已经写了macros来做到这一点，也发送到一个电子邮件地址，但我很难让它自动发送。 我已经指示了调度任务，但是我不知道如何在打开Excel，执行Marco，保存工作簿并将其发送给指定人员之间build立链接。 代码如下 – 感谢您的帮助。 Sub Fixing() Sheets("Sheet2").Select ActiveWindow.SmallScroll Down:=-9 Cells.Select Selection.Copy Sheets("Sheet1").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Range("I7").Select Application.CutCopyMode = False ActiveWorkbook.Save Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .to = "" .CC = […]

在同一个Outlook对话下使用VBA发送电子邮件

我正在使用基本的VBA代码每天发送一份电子邮件和我的电子表格副本。 邮件主题总是一样的。 我希望这些电子邮件在Outlook中显示为相同的对话，以便在使用“对话”视图时将它们嵌套/线程化。 但是，这些电子邮件总是作为一个新的对话来形成。 如何在OutMailvariables中设置一个类似于.subject等的属性来创build我自己的始终相同的ConversationID / ConversationIndex，以便电子邮件显示为嵌套？ VBA代码： Dim Source As Range 'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm Dim Dest As Workbook Dim wb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim FileFormatNum As Long Dim OutApp As Object Dim OutMail As Object Set Source = Nothing On Error Resume […]

Excel VBA：根据date获取电子邮件主题

我有一个macros将获得主题中包含“HAPPY”，“NEUTRAL”和“SAD”的所有电子邮件，并将其复制到工作簿的新工作表中。 我想添加一个function，当用户也可以定义一个date，只显示基于定义的date心情。 任何人都可以帮我吗？ 此外，下面的代码阅读收件箱中的电子邮件。 我需要它来读取我的电子邮件中的所有文件夹（例如发件箱和子文件夹）。 你能帮我一下吗？ Sub GetMood() Dim outlookApp Dim olNs As Outlook.Namespace Dim Fldr As Outlook.MAPIFolder Dim olMail As Variant Dim myTasks Dim sir() As String Dim ws As Worksheet Dim iRow As Variant Dim d As Date x = 2 d = ThisWorkbook.Sheets("Main").Cells(11, 7).Value Set outlookApp = CreateObject("Outlook.Application") Set olNs = outlookApp.GetNamespace("MAPI") […]

从excel / vba生成电子邮件到Outlook时，我的电子邮件签名不会显示？

嗨，我使用了Ron De Bruin的精彩网站来创buildVBA代码，它可以从excel文件中生成一封电子邮件给特定的用户。 唯一的问题是，我的签名不会出现在每封电子邮件，我似乎无法find如何将其添加到代码中？ 任何人都可以build议吗？ 正如你可以告诉我是一个完整的新手！ 第一单元 Option Explicit Sub Send_Row_Or_Rows_2() Dim OutApp As Object Dim OutMail As Object Dim rng As Range Dim Ash As Worksheet Dim Cws As Worksheet Dim Rcount As Long Dim Rnum As Long Dim FilterRange As Range Dim FieldNum As Integer Dim strbody As String On Error GoTo cleanup […]

将格式化的Excel范围粘贴到Outlook邮件中

我正在使用Office 2007，我想使用VBA将一系列格式化的Excel单元格粘贴到Outlook邮件中，然后发送邮件。 在下面的代码（我从各种来源解除），它运行没有错误，然后发送一个空的消息…粘贴不起作用。 任何人都可以看到问题，更好的是，帮助解决scheme？ 谢谢，史蒂夫 Sub SendMessage(SubjectText As String, Importance As OlImportance) Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachment Dim iAddr As Integer, Col As Integer, SendLink As Boolean 'Dim Doc As Word.Document, wdRn As Word.Range Dim Doc As Object, wdRn As Object ' Create the […]

尝试使用Excel VBA打开Outlook电子邮件模板

我正在尝试使用Excel打开Outlook 2010电子邮件模板。 我得到以下错误： “运行时错误”-2147287038（80030002）：无法打开文件：C：\ My \ Path \ MyTemplate.oft文件可能不存在，您可能没有权限打开它，也可能打开另一个文件右键单击包含该文件的文件夹，然后单击“属性”以检查文件夹的权限。 该文件存在（在正确的地方），我已经检查了权限（据我所知），并且该文件尚未打开。 这是我的代码： Sub Mail_experiment() Dim OutApp As Outlook.Application Dim OutMail As Outlook.mailitem Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItemFromTemplate("C:\My\Path\MyTemplate.oft") On Error Resume Next With OutMail .to = "myEmail@aol.com" .CC = "" .BCC = "" .Subject = "This is my Subject line" .Send End With On […]

使用VBA从Excel表格发送多个附件

我有现有的代码发送邮件从我的Excel文件中的工作表 – Sub CreateMail() Dim objOutlook As Object Dim objMail As Object Dim rngTo As Range Dim rngSubject As Range Dim rngBody As Range Dim rngAttach As Range Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) Application.ScreenUpdating = False Worksheets("Mail List").Activate With ActiveSheet Set rngTo = .Range("B1") Set rngSubject = .Range("B2") Set rngBody = .Range("B3") […]

Outlook似乎没有检测到Excel附件

我目前的目标是什么时候有人给我发送一封邮件，内容是"SES Gas Matrix"我的观点是将Excel文件从电子邮件中删除，保存在指定位置，打开Excel，在两个位置打印PDF然后复制Excel文档中的各种单元格。 然后杀掉excel文件。 我遇到的问题是我的代码在早上把文件发给我的时候起作用，把它下载到可能的计算机上，然后把它附加到我自己的电子邮件中。 这工作得很好。 问题是，当电子邮件来自源，Outlook似乎并没有拿起电子邮件的Excel附件的事实。 我正在拿起电子邮件签名中的jpeg，而不是excel文档。 这就是为什么我在if语句中添加了只为excel文档进行过滤的原因。 这已经解决了拉JPEG的问题，但似乎还找不到明显存在的Excel文件。 我也可以手动下载它。 这是我目前使用的代码： Private WithEvents myOlItems As Outlook.Items Private Sub Application_Startup() Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace("MAPI") Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items End Sub Private Sub myOlItems_ItemAdd(ByVal item As Object) 'On Error Resume Next Dim Msg As […]

从电子邮件中提取第3行和第4行

我需要从电子邮件中导出第3行和第4行。 我有一个存储在Microsoft Outlook会话中的VBA代码。 它运行良好，但它导出整个邮件正文。 我只需要3号线和4号线。 这里是示例代码： Option Explicit Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim olApp As Outlook.Application Dim objNS As Outlook.NameSpace Set olApp = Outlook.Application Set objNS = olApp.GetNamespace("MAPI") Set Items = objNS.GetDefaultFolder(olFolderInbox).Folders("Leads").Items End Sub Private Sub Items_ItemAdd(ByVal item As Object) On Error GoTo ErrorHandler Dim Msg As Outlook.MailItem Dim oXL As […]