Tag: outlook vba

运行时错误462 – 从Excel中删除Outlook约会

下面的代码删除Outlook默认日历的子文件夹中的约会。 我已经注释掉提供运行时错误462的行：“远程服务器机器不存在或不可用”。 我可以改变这个代码来解决这个错误吗？ 感谢您的任何指导。 Public Sub DeleteAppt() Dim olApp As Object 'Outlook.Application Dim olNS As Object 'Outlook.Namespace Dim olAptItemFolder As Object 'Outlook.Folder Dim olAptItem As Object 'Outlook.AppointmentItem Dim i As Long Set olApp = CreateObject("Outlook.Application") Set olNS = olApp.Session Set olAptItemFolder = olNS.GetDefaultFolder(olFolderCalendar).Folders("TestCal") ''''For i = olAptItemFolder.Count To 1 Step -1 Set olAptItem = olAptItemFolder.Items(i) […]

在为电子邮件VBA检索信息时进行明确的连接

我的macros的目的是检查单个工作表以查找某个范围内的date列表，然后将列出这些date的电子邮件发送到工作表中的电子邮件地址。 我正在处理的当前代码将当前工作表中的date以及前一个工作表中的date连接在一起，而不仅仅是此工作表中的date。 我正在努力使其不发声，试图把“ws”。 每个aCell指令之前，但得到编译错误。 任何build议不胜感激。 Sub Mail_Outlook() Dim ws As Worksheet Dim wsName As Variant Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim strbody As String Dim string1 As String Dim aCell As Range Dim i As Integer i = 0 For Each wsName In Array("sheet1", "sheet2", "sheet3") Set ws […]

从Excel发送电子邮件警报到Outlook

我想从Excel发送testing邮件到Outlook，但是我收到错误消息：运行时错误287在以下行中： OutMail.Send 请在下面find我的代码： Sub sendds() Dim OutMail As MailItem Dim outlookapp As Outlook.Application Dim myInspector As Outlook.Inspector Set outlookapp = CreateObject("Outlook.application") Set OutMail = outlookapp.CreateItem(olMailItem) With OutMail .To = "email address" .Subject = "test mail" .Body = "Hi this is test email" OutMail.Send 'Getting error on this line End With Set outlookapp = Nothing Set […]

将无法传送的电子邮件正文中的文本string提取为excel

我需要Outlook VBA上的一些帮助。 我正在尝试在Outlook中编写一个macros，用于从每个单独的无法传送的邮件正文中提取电子邮件地址。 有数以百计的电子邮件传递失败，所以它会更好，如果他们可以自动提取比手动复制和粘贴。 电子邮件正文如下所示： – – – – – – – – – – – – – – 电子邮件 – – – – – – – – – – – ——- 无法发送至对方或群组： XXXX@XXXXXX.XXX（XXXX@XXXXXX.XXX） …不需要信息… 致：XXXX@XXXXXX.XXX …不需要信息… – – – – – – – – – – – – – – 电子邮件 – – – […]

macros将共享邮箱子文件夹中的电子邮件复制到excel

我正在尝试创build几个macros来帮助跟踪我的工作的多个共享邮箱。 我对这方面没有经验，所以我把所有的东西都放在一起search这个网站和谷歌。 我创build了一个macros，将电子邮件复制到Excel，但我无法弄清楚如何指定只从共享邮箱收件箱子文件夹拉。 任何build议将不胜感激！ Option Explicit Sub CopyToExcel() Dim xlApp As Object Dim xlWB As Object Dim xlSheet As Object Dim rCount As Long Dim bXStarted As Boolean Dim enviro As String Dim strPath As String Dim objOL As Outlook.Application Dim ns As Outlook.NameSpace Dim objFolder As Outlook.MAPIFolder Dim objItems As Outlook.Items Dim obj As […]

如何find具体的主题，并复制邮件正文中的具体内容

我经历了许多Outlook论坛，无法find正确的代码来满足我的要求。 我有群组邮箱，我们经常收到邮件与主题行 "Request ID 691941: Call Lodged" ，这里是691941随着请求进入邮箱，并保持不变。 我想要的是 我的macros应该保持阅读组邮箱，只要它看到一个新的邮件，只有主题行包含“请求ID xxxxxx：呼叫寄存”其余邮件可以忽略 从邮件正文应该只复制这些领域的优秀。 i）请求ID 691941（在这里只有691941应该被复制到Excel） ii）严重性级别：Sev2（在这个只有Sev2应该被复制到Excel） iii）产品：FINCORE（在此只有FINCORE应复制到Excel） iv）客户：FINATS（在此只有FINATS应复制到Excel） v）date和时间：当这封邮件收到date和时间 在Excel中以指定的列复制。 我有下面的代码，但在第12行和第46行给出了错误 Sub Test() Dim myFolder As MAPIFolder Dim Item As Variant 'MailItem Dim xlApp As Object 'Excel.Application Dim xlWB As Object 'Excel.Workbook Dim xlSheet As Object 'Excel.Worksheet Dim xlRow As Long Dim Keys Dim Lines() As […]

从Excel的Outlook启动一个空白的电子邮件

我试图看看如何在一封空白的电子邮件中添加大约50多个电子邮件？ 下面是我的代码（删除所有电子邮件），但是当我添加所有的电子邮件到第二行，我的button失败。 Sub Email() 'Set a Reference to the Microsoft Outlook XX.X Object Library Dim oLook As Object Dim oMail As Object Set oLook = CreateObject("Outlook.Application") Set oMail = oLook.CreateItem(0) With oMail .To= "somebody@gmail.com,somebody@gmail.com,somebody@gmail.com,somebody@gmail.com,som ebody@gmail.com,somebody@gmail.com,somebody@gmail.com" .CC = "somebody@gmail.com" .Subject = "Generic Subject" .Display End With Set oMail = Nothing Set oLook = Nothing End Sub

分析Outlook电子邮件和导出到Excel VBA

我目前正在编写一个在Microsoft Outlook中运行的VBAmacros脚本，它应该parsing来自电子邮件的关键信息并将它们存储到Excel电子表格中。 现在，我被困在parsing和提取我想要的逻辑。 这是一个电子邮件的简短例子，需要提取的信息，并保存到Excel中，以黄色（X是大写或小写字母，＃是数字） 这里是Excel布局和我当前的代码发生了什么，没有什么是除了标题popup！ 这是我目前的代码： Sub Extract() On Error Resume Next Dim messageArray(3) As String Set myOlApp = Outlook.Application Dim OlMail As Variant Set mynamespace = myOlApp.GetNamespace("mapi") 'Open the current folder, I want to be able to name a specific folder if possible… Set myfolder = myOlApp.ActiveExplorer.CurrentFolder Set xlobj = CreateObject("excel.application.14") xlobj.Visible = True […]

如何将超链接和表插入到Excel工作表中的单元格中？

这是Outlook VBA中的代码 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 Dim strRFIitems As String Dim Signature As String sPath = "**" ' // Excel Set xlApp = CreateObject("Excel.Application") ' // Workbook Set xlBook = xlApp.Workbooks.Open(sPath) ' // […]

以编程方式将Excel图表/范围粘贴为电子邮件

如何在电子邮件中将一系列单元格和图表粘贴为增强型元文件？ 我有这个代码： Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .Display End With Signature = OutMail.HTMLBody With OutMail .To = "me@gmail.com" .CC = "me@school.edu" .Subject = Date & " is Today's date" .HTMLBody = emailBody & vbNewLine & RangetoHTML(Range("V9:AX89")) & "Chart 1" & RangetoHTML(Range("V126:AA202")) & chart3 & RangetoHTML(Range("V210:AX222")) & vbNewLine & "This message […]