outlook-vba

问题 I'm using VBA to enter into an outlook folder and put the message body into a cell. However on set ns = getnamespace("MAPI") I get an error "automation error library not registered". I have the following outlook related references selected (within Excel): Outlook 14.0 Object Library, Outlook SharePoint Social Provider, Outlook Social Provider Extensibility, Outlook View Control I'm using Excel 2010. The entire code follows. Any help would be greatly appreciated. Dim ns As Namespace Dim inbox

问题 I am running this code to copy the contents from Outlook folder TODO to Outlook folder Test. Both folders exist. I got "Run-time error '-2147221233 (8004010f)' for Set myItem = myInbox.Folders("TODO") I tried Dim myItem As Folder Sub MoveItems() Dim myNameSpace As Outlook.NameSpace Dim myInbox As Outlook.Folder Dim myDestFolder As Outlook.Folder Dim myItems As Outlook.Items Dim myItem As Object Set myNameSpace = Application.GetNamespace("MAPI") Set myInbox = myNameSpace.GetDefaultFolder

问题 I tried 'only works for name, not email address. "@SQL=""urn:schemas:httpmail:displayto"" ci_phrasematch '%John Doe%'" 'works great, failed when use AND. today was declared as string "@SQL=""urn:schemas:httpmail:subject"" like '%" & emailSubject & "%'" 'works great, failed when use AND. today was declared as string "[ReceivedTime] <= today" How can I use Item.Restrict to filter the recipient email address, subject and date range together? 回答1: Here is example for multiple filters Option

问题 I tried 'only works for name, not email address. "@SQL=""urn:schemas:httpmail:displayto"" ci_phrasematch '%John Doe%'" 'works great, failed when use AND. today was declared as string "@SQL=""urn:schemas:httpmail:subject"" like '%" & emailSubject & "%'" 'works great, failed when use AND. today was declared as string "[ReceivedTime] <= today" How can I use Item.Restrict to filter the recipient email address, subject and date range together? 回答1: Here is example for multiple filters Option

问题 I have a specific user that really wants to be able to redirect any email to other people in their department so that when that person replies to the email it will go back to the person who originally sent it. We can't give them permissions to send as everyone because not all users are internal so I am trying to make a VBScript to run in Outlook that will send forward all emails in a specified folder but change the reply address so that they don't have to manually put it in every time. I'm

问题 I want to move some messages from Inbox to a subfolder but this code (that I have copied from other forum) is not working. Can you tell me what is going wrong? Do you think it is not working because of the fact that I have two different accounts in this Outlook? 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 Items As Outlook.Items Dim lngCount As Long On Error GoTo

问题 I'm having difficulty getting my Application_Startup routine to fire when opening outlook. I've placed this in the "ThisOutlookSession" outlook object. The script from Application_ItemSend works fine however (events are correctly being triggered when sending mail). The Application_Startup macro runs fine when I initiate it manually after outlook has been opened - just not upon startup itself. Making the sub private makes no difference - neither does making the variables public. I have macro

问题 I wanted to insert a table of data from Sheet1 of my excel workbook and after inserting the same i need to insert my signature. I tried using HTMLBody. But it displays the signature either before the table is displayed or nothing at all. I tried changing the positions of the .HTMLBody but to no avail. In short have to to send a mail of the below format: To: CC: BCC: Subject: Body: should contain"Hi Please find below the details" Then the excel table with the data of range ("A3:F3) Then my

问题 I wanted to insert a table of data from Sheet1 of my excel workbook and after inserting the same i need to insert my signature. I tried using HTMLBody. But it displays the signature either before the table is displayed or nothing at all. I tried changing the positions of the .HTMLBody but to no avail. In short have to to send a mail of the below format: To: CC: BCC: Subject: Body: should contain"Hi Please find below the details" Then the excel table with the data of range ("A3:F3) Then my

问题 I have a number of "script" modules in Outlook that have been disabled as the "Run as Script" option has been removed in our system. An example of "Run as Script" file handling for an active project: Public Sub saveAVMAttachtoDisk(itm As Outlook.MailItem) 'Prepare variables Dim objAtt As Outlook.Attachment 'Identify destination folders: 'Engineering AVM Daily Fault folder is as follows: '\\Dc3fap002\Transit Engineering\Reliability MDBF\AVM\Daily Reports\ Dim saveFolder1 As String saveFolder1