Tag: outlook

为什么预约不会偶尔删除

我有一个Excel工作簿中的VBAmacros,用户日历中用特殊标记创buildOutlook约会。 在添加新的约会之前,它首先删除在物品主体中具有该标签的所有约会。 不幸的是,Outlook.AppointmentItem.Delete函数有时不起作用。 当我打开我的Outlook日历时,我可以看到该项目被删除很短的时间,并立即重新出现。 这只是偶尔发生。 我可以通过使用特定标记两次复制AppointmentItem来强制执行此行为。 然后,只有两个约会将被删除,一个保留在日历中。 任何人都可以解释什么可能导致此行为? Public Sub DeleteAppointment(Starttime As Date, Endtime As Date) Dim myStart As Date Dim myEnd As Date Dim olApp As Outlook.Application Dim oCalendar As Outlook.Folder Dim oItems As Outlook.Items Dim oItemsInDateRange As Outlook.Items Dim oAppt As Outlook.AppointmentItem Dim strRestriction As String Dim olNs As Outlook.Namespace Dim blnCreated As […]

为什么我的图像不embeddedHTML电子邮件?

我试图运行VBA中的代码,将发送HTML电子邮件,并试图在电子邮件中embedded图像。 我有以下代码这样做: Sub EmailImage() Dim oApp As Outlook.Application Dim oEmail As MailItem Dim colAttach As Outlook.Attachments Dim oAttach As Outlook.Attachment Set oApp = CreateObject("Outlook.Application") Set oEmail = oApp.CreateItem(olMailItem) Set colAttach = oEmail.Attachments Set oAttach = colAttach.Add("C:\Users\User1\Documents\thumbs-up.jpg") oEmail.Close olSave oEmail.To = "abc@abc123.com" oEmail.HTMLBody = "<IMG alt='' hspace=0 src='cid:thumbs-up.jpg' align=baseline border=0>&nbsp;</BODY>" oEmail.Send Set oEmail = Nothing Set […]

将Outlook电子邮件内容导出到Excel中

我收到格式如下的电子邮件: 我使用了某人在其他主题中获得的代码。 这里是代码: Const xlUp As Long = -4162 Sub ExportToExcel(MyMail As MailItem) Dim strID As String, olNS As Outlook.NameSpace Dim olMail As Outlook.MailItem Dim strFileName As String '~~> Excel Variables Dim oXLApp As Object, oXLwb As Object, oXLws As Object Dim lRow As Long strID = MyMail.EntryID Set olNS = Application.GetNamespace("MAPI") Set olMail = […]

如何在使用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 […]

将Excel附件保存为.txt – 使用Outlook 2010中的vbamacros打开

我有Outlook中的VBA代码下载Excel附件的特定电子邮件。 一旦保存,我打开Excel文件,并改变了一些东西,然后我想保存为.txt而不是Excel。 这是我的代码: ' Save the attachment as a file. objAttachments.Item(i).SaveAsFile strFile 'Open the attachment file Set xlApp = CreateObject("Excel.Application") xlApp.Workbooks.Open (strFile) xlApp.Visible = True xlApp.Workbooks.Item(1).activesheet.cells(1, 1).Value = "whatever" **xlApp.SaveAs strFile, FileFormat:=xlText** xlApp.Workbooks.Close 有谁知道如何将Excel保存在Outlook的VBA中? 对不起,如果没有我想要的那么清楚。 不工作的部分是: xlApp.SaveAs strFile,FileFormat:= xlText 我从Outlook 2010运行这个,我不明白为什么不工作,当我试图保存为纯文本的Excel(机智制表符分隔),我做错了什么? 谢谢你的回应。

VBAoutlook通过用户表单优秀

我遇到了一些问题,应该从Outlook用户窗体移到Excel。 出于某种原因,评估部分没有给出正确的答案,有什么想法? Private Sub btnOK_Click() Dim ctrtype As String Dim client As String Dim terminal As String Dim ctr As String Dim week As String Dim vMatch As Variant Dim sformula As String Dim xlApp As Object, xlBook As Object ctrtype = ComboBox1.Value client = ComboBox2.Value ctr = TextBox1.Value terminal = ComboBox3.Value week = ComboBox4.Value […]

将Outlook邮件项目parameter passing给函数

我正在写一个生成电子邮件的子文件,并附上PDF收据和(根据客户端)excel在一天中完成的业务收据。 由于并不是每家公司都收到优秀的收据,而是每家公司都收到一份PDF收据; 我正在build立处理这些操作的单独的函数。 问题:将已经创build的Outlook邮件项目传递给一个函数 收到错误消息:用户定义types未定义 位置:错误发生在代码发布的底部的私人子。 Private Sub BuildPDFConfirmEmail(ByRef outMail As olMailItem, ByVal firmName1 As String, ByVal firmName2 As String, ByVal firmName3 As String, ByVal isTraderSeparate As Boolean) 目前在BuildPDFConfirmEmail中的代码只是用于testing的虚拟代码,直到我能得到它的工作 Option Explicit Private Const EMAIL_BODY As String = "Hello," & "<br><br>" & "Please find today's trade confirmation(s) attached. Thank you." & "<br><br>" & "Best Regards," & […]

在VBA中引用Outlook的公用文件夹

下面的VBA代码映射到Outlook中我的收件箱中的“testing”文件夹。 我需要它映射到我的Outlook(公用文件夹> ABC文件夹> 123文件夹> Tat监视器文件夹)中的公用文件夹中的“TAT监视器”文件夹。 我尝试插入“olPublicFoldersAllPublicFolders”来代替“olFolderInbox”,但它不能识别它。 Public Sub GetAttachments() Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim firstDate As Date Dim secondDate As Date Dim i As Integer Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Test") firstDate = Date – 1 + TimeValue("8:00:00am") secondDate = Date – 1 + TimeValue("8:30:00am") […]

VBAsearchOutlook GAL中的特定用户

我想在GAL中search特定的用户(例如克林顿,比尔),并在Excel中获取所有信息,如电子邮件地址,电话,街道等。 我如何在VBA中做到这一点?

Dwonload从特定的发件人附件,并在Excel中打开

我对VBA相当陌生,希望能在项目上得到一些帮助。 为了给大家提供一些背景知识,每隔15分钟我会收到一封电子邮件,内容是Excel附件。 我需要打开附件,一旦电子邮件进入并查看它/比较它在15分钟前发送的电子邮件。 如果电子邮件有所不同,那么我必须采取行动。 我希望能够自动化至less一些这个过程。 理想情况下,我可以使用macros来扫描我的收件箱中是否有来自特定发件人的新邮件。 如果它发现一条消息,它可以检查附件,如果附件在那里,它会下载并打开它。 在一个理想的世界中,我能做的另一件事就是将先前的excel附件与当前的附件进行比较,如果不同,则可以ping一条消息(警报)。 任何帮助将非常感激。 正如我所说,我是VBA新手,但我正在尽我所能去理解函数。