outlook-vba

问题 After I run the following code, I will get to see the 1st part being displayed in my new email pop up window, but not the 2nd part. However, if I just click send and receive it, I will see 2 parts being displayed correctly. Why? Why I didn't see the 2nd part in the new email pop up window BEFORE sending it? Thanks!! Code Dim OutApp As Object Dim OutMail As Object With Application .EnableEvents = False .ScreenUpdating = False End With Set OutApp = CreateObject("Outlook.Application") Set

问题 I am trying to save incoming messages via outlook to my local file system. The code I have so far is: Sub save_to_dir(Item As Outlook.MailItem) 'the mail we want to process Dim objItem As Outlook.MailItem 'question for saving, use subject to save Dim strPrompt As String, strname As String 'variables for the replacement of illegal characters Dim sreplace As String, mychar As Variant, strdate As String 'put active mail in this object holder Set objItem = Outlook.ActiveExplorer.Selection.Item(1)

问题 I have the following code: Set theInbox = GetFolder("SHARED MAILBOX NAME\Inbox") Set theSub = theInbox.Folders("Subfolder Name Here") Set theFolder = theSub.Folders("Another Subfolder Name") Item.Move theFolder This is a Shared Mailbox which I use in Cached Mode. Sometimes "theSub" fails to retrieve the Subfolder. If I uncheck the Download Shared Folders option, it works properly, however, Outlook is painfully slow. How can I retrieve the folders when using cached mode? 来源： https:/

问题 I have the following code to import all contacts from Outlook. Dim olApp As Outlook.Application Dim olNamespace As Outlook.Namespace Dim olFolder As Outlook.MAPIFolder Dim olConItems As Outlook.Items Dim olItem As Object Set olApp = New Outlook.Application Set olNamespace = olApp.GetNamespace("MAPI") Set olFolder = olNamespace.GetDefaultFolder(olFolderContacts) Set olConItems = olFolder.Items 'HERE IS THE PROBLEM I do not know how to do so that there are only contacts from my desired group in

问题 I have created a macro which takes the latest mail and send the reply all. Now how do I search Inbox and sub folders and pick the latest one. My code picks the mail only from Inbox. Option Explicit Public Sub TESTRUN() Dim olApp As Outlook.Application Set olApp = New Outlook.Application Dim olNs As Outlook.Namespace Set olNs = olApp.GetNamespace("MAPI") Dim Inbox As Outlook.MAPIFolder Set Inbox = olNs.GetDefaultFolder(olFolderInbox) Dim Subject As String Subject = ThisWorkbook.Sheets(

问题 I trying to loop through the message to copy multiple attachments, but no success, i'm getting 13 - type mismatch error!!! Any suggestions will be appreciated. my code is as follows, Private Sub Items_ItemAdd(ByVal item As Object) On Error GoTo ErrorHandler 'Only act if it's a MailItem Dim Msg As Outlook.MailItem If TypeName(item) = "MailItem" Then Set Msg = item 'Set folder to save in. Dim olDestFldr As Outlook.MAPIFolder Dim myAttachments As Outlook.Attachments Dim Att As String Dim i As

问题 I need to search for mail in Sent Items, sent on current date and with subject as "Task Completed". Sometimes Subject may have additional text like Task Completed on 07/01/2017 or Task Completed 01/09/2017. I found this Outlook VBA code, which displays found mail. I want the code to run in Excel with wildcard search options and open an Excel file. I tried to search the subject with wildcard " * ", like "Task Completed * " and "Task Completed on & Format(Date, "dd/mm/yyyy")" for which I got an

问题 I am creating a macro to get email by subject and received date in our team shared box. My problem is that once I select date (e,g 1/16/2018 to 1/17/2018), only few emails are stored in object. In below screenshot, I have 9 items which are applied restrict method. It should be 14 items emails which are received after 1/16/2018 to now(right outlook mail in screenshot), but 5 emails are not stored in object. can anyone help me out? I'm STUCK! Sub GetFromOutlook() Dim OutlookApp As Outlook

问题 I'm currently writing a VBA macros script run in Microsoft Outlook which should parse key information from emails and store them into an Excel spreadsheet. Right now, I am stuck on the logic of parsing and extracting what I want. Here is a short example of an email with the info that needs to be extracted and saved into Excel circled in yellow (Xs being capital or lowercase letters and # being numbers) Here is the Excel layout and what is happening with my current code, nothing is popping up

问题 I have the following VBA code in Outlook to move mail to a personal folder if it is old. Here is the code: I get an exception on the line Next objItem (looking at the watch it is set to nothing). What would cause objItem to be null and thus cause a Type Mismatch exception in the Next objItem line? Sub MoveOldMailFromInbox() Dim objFolder As Outlook.MAPIFolder Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem, mail As Outlook.MailItem Set objNS = Application.GetNamespace("MAPI") Dim