outlook-vba

问题 How can I move copy of emails I flag and put them in a folder? For example, John Doe sends me an email, I flag it, the original email stays in my inbox but a copy of the email goes into a folder called "Follow Up" . Can someone help me? EDIT: The code below is extremely close to what I want but it's moving the original email to the folder instead of a copy. It's also not targeting the flagged email. Sub FollowUp() On Error Resume Next Dim ns As Outlook.NameSpace Dim moveToFolder As Outlook

问题 I want to save the selected item in Outlook. With the below code, I am able to save the item but it saves only the 1st item and not the selected item. What do I need to change in order to save the selected item? Dim oOlApp As Object, objNmSpc As Object, ofldr As Object Dim myCopiedItem As Outlook.MailItem Dim myNewFolder As String Set oOlApp = GetObject(, "Outlook.Application") If Err.Number <> 0 Then Set oOlApp = CreateObject("Outlook.Application") End If Err.Clear Set objNmSpc = oOlApp

问题 I've just started working on macros and have made a pretty decent progress so far. However, I'm stuck in a place and can't find an answer to it. I'm using a macro to send emails to specific recipients via outlook. I'm sending multiple excel & pdf attachments in each email. The code works fantastic! I, nonetheless, need to add a condition wherein an email that doesn't have any EXCEL attachments isn't sent and the outlook create mail item for this specific case only closes automatically. The

问题 I have found this code online and trying to change it to fit my purpose. All I need is to save attachments that go from test@noreplay.com to my Test folder (it is sub folder to Inbox). I do not know how to change it and need your help! Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "C:\Attachments" For Each objAtt In itm.Attachments objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName Set objAtt = Nothing Next End

问题 I am trying to find a way to filter email based on multiple criteria however i while running the below code i am getting an error "Cannot Parse Condition.Error at"09". The ReceivedDate is 8/24/2008 9:55:30 PM ReceivedDate = Me.cballocation.Column(1) Sender = Me.cballocation.Column(2) Subject = Me.cballocation.Column(0) sFilter = "[subject] = '" & Subject & "' and DateValue[ReceivedTime]=" & Format$(ReceivedDate, "ddddd h:nn AMPM") & " and " & "[Sender]= '" & Sender & "'" Set Ns = ol

问题 UPDATE: Current code below in accordance with recommended SQL construct: error in SqlString = Run-time error '3011': The Microsoft Access database engine could not find the object ". Make sure the object exists and that you spell its name and the path name correctly. If " is not a local object, check your network connection or contact the server administrator. Of note, I am working on a USAF unclassified network system, and log in via CAC. Sub InboxImport Dim SqlString As String Dim

问题 I have an email template saved in Outlook. I send this email out many times a day. Each email I send is formatted with bold, colored text, the company logo , and unique information for that recipient. The unique information is generated in excel and so what I have been manually copying and pasting the excel information into the Outlook template. I want to figure out a way to get excel to auto-populate the template for me, including the main recipient, the cc recipient, subject, and attachment

问题 I'm getting this Object Required error. See code below. I don't understand why I'm getting it. The oitem variable is declared as an Object, and I do a test for the type "MailItem" before attempting to move it. Please advise. Alan Public StatsArchiveFolder As Outlook.Folder 'StatsArchiveFolder is set to equal an Outlook.Folder elsewhere _____________________________________ Sub MoveHarpStatMail() Dim olapp As Outlook.Application Dim olappns As Outlook.NameSpace Dim oitem As Object Dim

问题 I am working on a vba macro to extract the text contained in an email that is sent to me every day at a specified email address I want to generate a vba macro that triggers when this arrives. The text needs to be saved to a text file "c:\temp\email.txt" I have collated various bits of code, but nothing really works. Can anyone advise a simple vba method to do this? 回答1: You may find my answer to How to copy Outlook mail message into excel using VBA or Macros gives you a start. That answer

问题 I would like to choose a particular mailbox (inbox, archive mailbox, etc.) and find a particular folder by name. I would like to have the option which will not show me only one result but if in a particular inbox there will be two same subfolders, will show me the first one, if I accept it than case closed, if not I can go to the next result. Private MyFolder As Outlook.MAPIFolder Private MyFolderWild As Boolean Private MyFind As String Public Sub FindFolder() Dim Name$ Dim Folders As Outlook