Tag: outlook vba

如何在使用vba的邮件正文中连接文本，当我们需要使用IF THEN条件？: 我想结合邮件正文中的文本，也需要使用IFTHEN条件。我应该如何继续。下面给出的是代码，可以看到Body之间的If条件。 Dim olApp As Object Set olApp = CreateObject("Outlook.Application") Dim olMail As Object Set olMail = olApp.CreateItem(olMailItem) Dim x As Integer Dim i As Integer Dim last As Integer x = 3 i = 2 last = Range("H" & Rows.Count).End(xlUp).Row Cells(23, 2).Value = last Do While i <= last If x – i […]

电子邮件从Outlook与主题的Excel单元格值: 我如何发送电子邮件从Outlook中包含Excel文件中的主题的单元格值？我发现每一个可能的代码发送电子邮件从Excel中，但我真的想打开电子邮件，并从Excel文件中具有单元格值。而这一切都是从Outlook而不是从Excel完成的。谢谢。

如何在Outlook中密码保护电子邮件发送: 我正在使用Outlook 2010桌面应用程序。我想密码保护电子邮件发送选项，如果有人试图用我的电子邮件帐户发送电子邮件，会提示（popup）密码来validation是否是我。我从一些朋友那里得知，我可以创build一个macros，在我的outlook中添加一个模块，过滤，也许使用VB语言或其他编码…当我离开我的桌子时，我只能激活这个filter或类似的东西然后没有人可以使用我的电子邮件帐户发送电子邮件，但我不知道我该怎么做…任何人有一个想法吗？

使用Outlook VBA进行孤立Excel过程: 下午好，我遇到了一个问题，我的outlook vba在结束我打开的excel过程时遇到了问题。我已经研究了一些不同的解决scheme，例如最后将variables设置为Nothing，并在所有variables之后使用语句，但是当我一次又一次地调用excel时，我遇到了一个障碍，并且孤立进程似乎导致了问题。如果有人会指引我正确的方向，我会错误的将不胜感激。简而言之，代码是假设下载附件，将附件中的一些单元格值复制到我的计算机上的工作簿中，然后保存并closures文档。 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) Dim Msg As Outlook.MailItem Dim msgattach As Object Dim wb As Workbook Dim […]

使用Excel文本框中的文本发送Outlook电子邮件 – 错误424：需要对象: 我正在尝试使用文本框中的文本（我在Excel中将其命名为tx）作为正文发送电子邮件。当我运行代码时，线上有一个错误： strbody = tx.Text 错误424：需要的对象 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 = tx.Text 'On Error Resume Next With OutMail .To = "…" .CC = "" .BCC = "" .Subject = Cells(3, 2) .Body = strbody .Send End […]

Loop vba同时显示各种电子邮件: 我用WINRAR压缩一个10MB的文件。我想循环并创build一个电子邮件附加每个部分，并显示所有的电子邮件发送之前。 Set OutApp = CreateObject("Outlook.Application") Application.Wait (Now + TimeValue("0:00:30")) On Error GoTo 0 Set OutMail = OutApp.CreateItem(0) For i = 1 To times With OutMail .To = wb1.Sheets("MAIL").Cells(4, 3).Value .CC = wb1.Sheets("MAIL").Cells(5, 3).Value .BCC = "" .Subject = wb1.Sheets("MAIL").Cells(6, 3).Value .Body = wb1.Sheets("MAIL").Cells(9, 3).Value 'You can add other files also like this If (times […]

Excel VBA处理和转发引起“内存不足”错误的电子邮件: 我希望有人可以帮助 – 我遇到了可怕的“内存不足或系统资源”的错误与运行在Excel中的一些代码和Outlook的工作; 从哪个错误发源。简短描述是通过查看身体/主题的电子邮件列表来查看。如果find它，它会转发电子邮件项目与主题中的参考。 MWE以下; 我不是很有经验的处理Outlook对象，但我花了近两个小时尝试不同的东西，没有运气。我不能使用GetTable（）函数，因为它不包含正文文本数据据我所知（工作了这个），除非你可以添加列以包含正文文本？如果我只用十几个项目在新开的Outlook会话中运行它，这不是一个问题，但是我需要它在一个pop中处理数百个电子邮件。把我的头靠在这里的墙上。非常感谢！ Private Sub processMWE(ByVal oParent As Outlook.MAPIFolder) Dim thisMail As Outlook.MailItem Dim myItems As Outlook.Items Dim emailindex As Integer Dim folderpath As String Dim refandType As Variant Dim fwdItem Set myItems = oParent.Items folderpath = oParent.folderpath 'Starting at row 2 on the current […]

从Excel工作表中检索多个收件人姓名: 这是代码：它适用于一个收件人。 Sub Sendmail() Dim olItem As outlook.MailItem Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSht As Excel.Worksheet Dim sPath As String Dim iRow As Long sPath = "***" ' // Excel Set xlApp = CreateObject("Excel.Application") ' // Workbook Set xlBook = xlApp.Workbooks.Open(sPath) ' // Sheet Set xlSht = xlBook.Sheets("Sheet1") ' // Create […]

Excel工作簿到Outlook模板: 请参阅下面的附图以供参考。我有一个Excel工作簿，我需要input数据到每一天的飞行。 input数据后，我需要重新input数据到Outlook模板，并将其发送到客户端。我的Outlook模板包含一个基本的表格，如图所示。我想要做的是input数据到excel后，点击button，它会自动打开Outlook模板，并填写准备发送的Excel工作簿中的数据。我一直在复制和粘贴数据，但由于数百封电子邮件需要每天完成，所以我们开始失控。任何build议将不胜感激。

如何打开Excel，如果尚未打开: 我试图find一种方法来打开Excel使用Outlook VBA，但只有当它尚未打开。我设法find一些在互联网上打开Excel的代码，做了更改，然后closures它，但如果Excel工作簿已经打开（它确实应用更改，但不再closuresExcel工作簿，它只是把它留在一个灰色的内部;有时它甚至不再显示在资源pipe理器中，我必须从任务pipe理器中closures它）。我也非常感谢，如果有人能解释大部分的代码。 Public xlApp As Object Public xlWB As Object Public xlSheet As Object Sub ExportToExcel() Dim enviro As String Dim strPath As String 'Get Excel set up enviro = CStr(Environ("USERPROFILE")) 'the path of the workbook strPath = enviro & "\Documents\test2.xlsx" On Error Resume Next Set xlApp = GetObject(, "Excel.Application") If Err <> […]