outlook-vba

问题 Let's say you have several accounts attached to your Outlook client and want to be able to choose which one to send a mail from using VBA. What do you do? The MailItem.SendUsingAccount parameter looks the right way to do this and is recommended elsewhere like here or here or here. However, if you apply the example in the Developer Reference, setting the SendUsingAccount property to valid Accounts may be impossible. Why? This appears to be the answer : You must Dim your MailItem as an Object

问题 We have an Access Database running for quite a few years under "Office 2010" but now we have to change to Office 365 and are getting this annoying error with the code below: Dim olAppSaida As Outlook.Application Dim olItemSaida As Outlook.MailItem Set olAppSaida = CreateObject("Outlook.application") Set olItemSaida = olAppSaida.ActiveInspector.CurrentItem If Not TypeName(olItemSaida) = "Nothing" Then olItemSaida.SaveAs "C\TEstes\" & strProcesso & ".Msg", olMSGUnicode End If The reference to

问题 I am creating a tool that will automatically dispatch emails out. I have started to build it using very simple code as below: Set outlookobj = New Outlook.Application Set mitem = outlookobj.CreateItem(olMailItem) With mitem .To = "A_Valid_Email@email.com" .Subject = "TEST" .Body = "test" .Display .Send End With End Sub However the company I work for seem to have locked down .send. The email will create fine but will not send. Can anyone think of a way around this? I have considered using

问题 I'm trying to write a macro which will be going through a folder in Outlook assigning a retention tag (docs) to some items based on some complicated criteria. I don't know how to do this in VBA. So far I've learned that mail items have some retention related properties ( PidTagPolicyTag (docs), etc.), but I still don't know how to deal with them properly. What would be some examples of using with these? 回答1: Take a look at existing message with those properties set using OutlookSpy (click

问题 I'm trying to write a macro which will be going through a folder in Outlook assigning a retention tag (docs) to some items based on some complicated criteria. I don't know how to do this in VBA. So far I've learned that mail items have some retention related properties ( PidTagPolicyTag (docs), etc.), but I still don't know how to deal with them properly. What would be some examples of using with these? 回答1: Take a look at existing message with those properties set using OutlookSpy (click

问题 I'm trying to write a macro which will be going through a folder in Outlook assigning a retention tag (docs) to some items based on some complicated criteria. I don't know how to do this in VBA. So far I've learned that mail items have some retention related properties ( PidTagPolicyTag (docs), etc.), but I still don't know how to deal with them properly. What would be some examples of using with these? 回答1: Take a look at existing message with those properties set using OutlookSpy (click

问题 My mails in Outlook has all specific subjects. I have a Excel Sheet which has subject and Folder Name. I have already this code from 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

问题 My mails in Outlook has all specific subjects. I have a Excel Sheet which has subject and Folder Name. I have already this code from 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

问题 The VBA code does not move all emails with a certain words in the Subject "has been updated" and "Item" from the inbox to the subfolder "Neu". Emails should be already read. After 5-6 iterations , all emails will be moved. But why doesn't it work immediately after the first time of code running? Maybe you have faced the same problem? Out of 46 emails, 26 of them are moved firstly, then 39, then 44 and then 46. Thank you very much in advance! Sub Emails_Outlook_Transport() Dim olApp As Outlook

问题 The VBA code does not move all emails with a certain words in the Subject "has been updated" and "Item" from the inbox to the subfolder "Neu". Emails should be already read. After 5-6 iterations , all emails will be moved. But why doesn't it work immediately after the first time of code running? Maybe you have faced the same problem? Out of 46 emails, 26 of them are moved firstly, then 39, then 44 and then 46. Thank you very much in advance! Sub Emails_Outlook_Transport() Dim olApp As Outlook