outlook

问题 My goal is to create a VBA script that fires when a new e-mail arrives to a shared mailbox and does the following things if the title contains specific text: 1. Moves the message to a specified subfolder 2. Saves all Excel attachments to a Desktop folder. After doing considerable research I came up with the following code and pasted into ThisOutlookSession: Private WithEvents Items As Outlook.Items Private Sub Application_Startup() Dim myOlApp As Outlook.Application Dim myNms As Outlook

问题 I'd like to open outlook via command with parameters and launch macro once is opened... this code open outlook with parameters outlook.exe /c ipm.note /m "m@m.m&subject=abc&body=123" /a "f:\attach.txt" if I add code to launch a macro, outlook won't open and give me an error... what's wrong in this code ? outlook.exe /c ipm.note /m "m@m.m,&subject=abc&body=123" /a "f:\attach.txt" /autorun mymacro 回答1: You can't run a macro using a command-line switch. The only relevant command is /altvba, but

问题 I have a working code which is extracting information from subject of initial email. Sub InitialNotif() Dim origEmail As MailItem Dim replyEmail As MailItem Dim INC1 As String 'For Serial Number Dim INo As Integer 'For Serial Number Dim LOC1 As String 'For Location Dim LoC As Integer 'For Location Dim SUMM As String 'For Summary Dim Sum As Integer 'For Summary Set origEmail = Application.ActiveWindow.Selection.item(1) Set replyEmail = Application.CreateItemFromTemplate("H:\Documents\Test P1-

问题 I have a working code which is extracting information from subject of initial email. Sub InitialNotif() Dim origEmail As MailItem Dim replyEmail As MailItem Dim INC1 As String 'For Serial Number Dim INo As Integer 'For Serial Number Dim LOC1 As String 'For Location Dim LoC As Integer 'For Location Dim SUMM As String 'For Summary Dim Sum As Integer 'For Summary Set origEmail = Application.ActiveWindow.Selection.item(1) Set replyEmail = Application.CreateItemFromTemplate("H:\Documents\Test P1-

问题 I have a directory hierarchy full of EML/MSG email data files. These files can be imported into MS Outlook 2010 (desktop version) one at a time, but I am looking for a way to automate this. I need to create each folder as an Outlook folder, and import email datafiles into these Outlook folders. Anyone aware of an Outlook 2010 API that allows for creating folders & importing files? 回答1: To create new folders in Outlook, use MAPIFolder.Folders.Add. Outlook Object Model does not directly support

问题 I have a directory hierarchy full of EML/MSG email data files. These files can be imported into MS Outlook 2010 (desktop version) one at a time, but I am looking for a way to automate this. I need to create each folder as an Outlook folder, and import email datafiles into these Outlook folders. Anyone aware of an Outlook 2010 API that allows for creating folders & importing files? 回答1: To create new folders in Outlook, use MAPIFolder.Folders.Add. Outlook Object Model does not directly support

问题 Using C# 2.0 I would like to: Add voting button in Outlook mail message and send. Track the response. I can see some reference material to read the mail content so may be tracking will be possible, but how do I achieve a voting button? 回答1: You will have to translate this VB code into c# ActiveInspector.CurrentItem.VotingOptions = "Yes;No;Maybe" In order to track, you will have to get reference to the email that was sent with Voting options. for i = 1 to ActiveInspector.CurrentItem.Recipients

问题 On a shared inbox account, I would like to run a script if the email is unread. I tried this: Sub UnreadMail() Dim myEmail As Object Dim myNamespace As Object Dim myFolder As Folder Set myNamespace = Application.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) For Each myEmail In myFolder If (myEmail.UnRead) Then Call SaveAttachToDisk End If Next End Sub 回答1: You almost got it, Try using GetSharedDefaultFolder Look at MSDN GetSharedDefaultFolder Method Option

问题 I use this https://stackoverflow.com/a/48897439/14866652 to a range as an image into an Outlook email. I don't want the screen to display so I changed the .Display to .Send . The mail is sent empty: Public Sub enviarmail() Dim rng As Range Dim olApp As Object Dim Email As Object Dim Sht As Excel.Worksheet Dim wdDoc As Word.Document Set Sht = ActiveWorkbook.Sheets("Cierre de ventas") Set rng = Sht.Range("B23:N35") rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture With Application

问题 I was able to identify and extract all necessary e-mails I need. I also saved the attachments per e-mail to another variable. However, I'm having issue saving these attachments to a local folder, specifically those that are of file type = .xlsx. library(RDCOMClient) setwd("C:/Updated") outlook_app <- COMCreate("Outlook.Application") search <- outlook_app$AdvancedSearch( "Inbox", "urn:schemas:httpmail:subject like '%Daily Efficiency Tracker%'" ) Sys.sleep(10) results <- search$Results()