Tag: outlook

附加文件的macros问题: 这个想法是附加一个Excel文件，使用Attachment.Add引用我使用macros获取的列表。 macros读取文件夹中的文件并将其显示在列中。从那一栏我想通过Excel附加这些文件。我一直在下面的线上发生错误。 .Attachments.Add Filelist & "\" & "Attch" 谁能帮忙？ Sub Sendemailusingword() Dim Olapp As Outlook.Application Dim Olemail As Outlook.MailItem Dim olmail As Object Dim olinsp As Outlook.Inspector Dim wddoc As Word.Document Dim count As Integer Dim x As Integer Dim Filelist As String Dim Attch As String x = 1 row_number = 7 […]

如何将Outlook收件箱中的邮件项目与特定的主题移动到特定的文件夹/子文件夹？: 我在Outlook邮件有所有特定的主题。我有一个Excel工作表，它有主题和文件夹名称。我已经从Stackoverflow的这段代码 Option Explicit Public Sub Move_Items() '// Declare your Variables Dim Inbox As Outlook.MAPIFolder Dim SubFolder As Outlook.MAPIFolder Dim olNs As Outlook.NameSpace Dim Item As Object Dim lngCount As Long Dim Items As Outlook.Items On Error GoTo MsgErr '// Set Inbox Reference Set olNs = Application.GetNamespace("MAPI") Set Inbox = olNs.GetDefaultFolder(olFolderInbox) Set Items = […]

VBA Excel创buildOutlook电子邮件主题和主体空白: 我有一个由别人发起的Excel电子表格，通过一个计划的任务发送一个电子邮件到一个组，或者至less已经习惯了。它最近停止了工作。我现在没有时间重build他的整个Rube Goldberg / Wile E. Coyote系统，所以我试图修复它。在其中一个Excel文档中，存在此代码 Set rng = Nothing On Error Resume Next Set rng = Sheets("Weight").Range("A2") On Error GoTo 0 If rng Is Nothing Then MsgBox "The selection is not a range or the sheet is protected" & _ vbNewLine & "please correct and try again.", vbOKOnly Exit Sub End […]

Excel vba：循环浏览Outlook电子邮件中的所有子文件夹，以查找具有特定主题的电子邮件: 我已经在Excel VBA中编写了以下代码，如果它位于Outlook中的默认收件箱文件夹中，该代码将打开包含给定主题的电子邮件。但是，我想在所有收件箱子文件夹中search此电子邮件。由于代码将被多个用户使用，我不知道他们的Outlook收件箱子文件夹的数量和名称。关于如何在所有子文件夹中search此电子邮件的任何想法？ Sub GetEmail() Dim OutApp as Object Dim Namespace as Object Dim Folder as Object Dim myMail as Object Set OutApp = CreateObject("Outlook.Application") Set Namespace = OutApp.GetNamespace ("MAPI") Set Folder = Namespace.GetDefaultFolder(6) Set myMail = Folder.Items.Find ("[Subject] = ""Test""") myMail.Display End Sub

指定要保存Excel文件的文件夹: 每天，我都会在Outlook中收到大约100封电子邮件，邮件内容类似于“经销商销售驾驶舱 – XXXXXXXX”，XXXXXXXX是一个可变数字。我需要获取电子邮件主题末尾的数字，然后将它们写入Excel电子表格的一个列中（如果在Excel中不可能，则将其写入一个.txt文件中）。这是我find的代码。问题是，它从来没有在“test.xlsx”中写入。我无法解决它从来没有真正与VBA工作。 Sub ExportMessagesToExcel() Dim olkMsg As Object, _ excApp As Object, _ excWkb As Object, _ excWks As Object, _ lngRow As Long, _ lngCnt As Long, _ intPos As Integer, _ strFil As String strFil = InputBox("D:\LocalData\xl02926\Documents\Samuel\AutoCockpit\test.xlsx", "Export Messages to Excel") If strFil <> "" Then Set excApp […]

在Excel VBA中捕获Outlook电子邮件发送时间: 每当我在Excel中执行VBA代码时，都会生成一个Outlook电子邮件。它不会自动发送，也不希望它。该电子邮件是由一个范围内的单元格值（这是基于ActiveCell的）填充，我想以编程方式捕获电子邮件手动发送到ActiveCell.Offset（0，13），最好与我当前的Excel程序中的VBA。这是我显示电子邮件的代码： 'Send Stock Request: Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .BodyFormat = olFormatHTML .HTMLBody = "My eMail's HTML Body" .To = "myrecipients@theiremails.com" .CC = "" .BCC = "" .Subject = "Stock Request" .Display End With Set OutMail = Nothing […]

我怎样才能保持Excelmacros中的单元格的原始格式？: 我是Excel VBA中的新成员，我设法创build了一个简单的macros来自动化一些电子邮件，这些电子邮件为我的工作人员提供了定制的报告。在这种情况下，我使用一个工作表，根据添加到文件中的信息而变化。 macros使用这些信息，并创build一个定制的电子邮件。其中一些信息是时间和百分比值，在工作表中，单元格保持这种格式。例如，如果这个人已经在特定的任务中工作了3个小时，它将显示该单元格为“3:00”。但是，当创buildvariables并使用它们来创build电子邮件时，这些值将显示在数字对应中。示例电子邮件这是0.666666666666667报告！这个自动电子邮件的想法是帮助您实现您的日常目标期望。如果您认为可以做得更好，请随时与我们联系！目前您正在：•评分时间的00:00•质量时间的00:00•不等级时间的2.79282407407407E-02从现在开始，它是0.666666666666667，您应该有0.3125，所以您错过了0.284571759259259。此外，您的每日完成目标是0.133333333333333。 PD：你有00:00，所以你是完美的！我想以我需要的特定格式显示这个值，这也是单元格的原始格式。我留给你的代码，如果有新手的错误对不起，我是新来的。提前致谢。 Sub SendEmail(what_address As String, subject_line As String, email_body As String) Dim olApp As Outlook.Application Set olApp = CreateObject("Outlook.Application") Dim olMail As Outlook.MailItem Set olMail = olApp.CreateItem(olMailItem) olMail.To = what_address olMail.Subject = subject_line olMail.BodyFormat = olFormatHTML olMail.HTMLBody = email_body […]

VBA，在VBA代码中插入Outlook签名: 我有一个vba代码，当到期date距离当前date至less7天7天时自动发送电子邮件。问题是他们发送电子邮件时没有我的Outlook签名。我使用outlook 2016.如果你能帮助我，这将是一个很大的帮助。代码是： Sub email() Dim lRow As Integer Dim i As Integer Dim toDate As Date Dim toList As String Dim eSubject As String Dim eBody As String With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Sheets(1).Select lRow = Cells(Rows.Count, 4).End(xlUp).Row For i = 2 To lRow […]

问题从共享的Outlook日历中删除约会: 我正在编写一个脚本从一个SharePoint站点抓取数据，并在实验室停机发生时在Outlook上创build一个预约。我有一个删除方法，如果我在我的Outlook上testing，但它不会清除共享日历 Private Sub DeleteAllAppointments() Dim olkApp As Object, _ olkSession As Object, _ olkCalendar As Object, _ olkItem As Object, _ intIndex As Integer Set olkApp = CreateObject("Outlook.Application") Set olkSession = olkApp.Session olkSession.Logon Set olkCalendar = olkSession.GetDefaultFolder(olFolderCalendar) For intIndex = olkCalendar.Items.Count To 1 Step -1 Set olkItem = olkCalendar.Items.Item(intIndex) olkItem.Delete Next Set olkItem = […]

将约会发送到共享日历: 我有一个脚本，从SharePoint网站获取实验室停机数据。根据一定的条件，如果发生停电，它会向Outlook发送预约。 Private Sub CreateAppt(Subject As String, startTime As Date, endTime As Date, _ startDate As Date, endDate As Date, superString As String, _ OUTAGEREQUIRED As String) Dim body As String: Dim myoutlook As Outlook.Application Dim myRecipient As Outlook.Recipient Dim myNameSpace As Outlook.Namespace Dim olkCalendar As Object Dim olkSession As Object Dim myapt As Object […]