Search results

Hi, I want to run a script in a Rule, it's ok if the script is in the VBAPROJECT, but how to do that if is in an OUTLOOK ADDIN ?

Hi, You can test it If you want an alert it's better using an Userform (vbmodeless) than Msgbox Private WithEvents olInboxItems As Items Private Sub Application_Startup() Dim objNS As NameSpace Set objNS = Application.Session ' Get function from Working with VBA and non-default Outlook...

Hi, What is the best pratice for catching Mailitem events ? (response, forward, etc...) i saw in this article : VBA Sample: Do Something When Reply is Clicked this code Option Explicit Private WithEvents oExpl As Explorer Private WithEvents oItem As MailItem Private bDiscardEvents As Boolean...

it's ok ! Sub AssignStorageData() Dim oInbox As Outlook.Folder Dim myStorage As Outlook.StorageItem Set oInbox = Application.Session.GetDefaultFolder(olFolderInbox) ' Get an existing instance of StorageItem, or create new if it doesn't exist Set myStorage =...

Hi , Command Bars were deprecated with Outlook 2010

Thank you , I will test it.

Hi, Is there a way to hide an item ? I want to use a mailitem as parameters for an ADDIN

Hi Diane, Thank you for your response.

Hi, I have an issue with vba code when i use .getConversation.GetTable If we are in mode "Online with Exchange server" or ""Connected to Microsoft Exchange" it's ok But if we are just "Online" (when it's an Additional Mailbox), it's KO there is no line in the table. additionnal Mailbox but...

Hi, take a look Bulk Change File As Format for Contacts

Same as Outlook script to forward emails based on senders' address

Hi, Make one PDF with EMAIL and ATTACHMENTS and then print THE PDF

Outlook rules (and Script ) are raised for each Email. To create a new mail you need to wait the 3rd Email. Public Sub saveAttachtoDisk(itm As Outlook.MailItem) Dim objAtt As Outlook.Attachment Dim saveFolder As String saveFolder = "m:\Attachments" For Each objAtt In...

Hi Diane, With your code above, i get nothing ! Perhaps it's because i'm French I have updating my code with a short restrict filter : Sub ContactDateCheckV2() Dim myItems As Outlook.Items Dim currentAppointment As Object Dim myAppointments As Object Dim strDate Dim...

Hi Diane, Thank you for your help. If birthday is in my query period, ok i want it . But in this case all birtdays are in the result

Can anybody confirm the BUG ? If you want to test it. Paste the code in a module. Add a contact with a birthday. Run it

Hi, N = 1 MemPath = pj.FileName PathNomExport = MemPath While Dir(Repertoire & PathNomExport) <> "" PathNomExport = "(" & N & ")" & MemPath N = N + 1 Wend pj.SaveAsFile...

Hi, It has been several times that the restrict method returns birthdays, which does not match my filter What is the reason? Option Explicit Sub ContactDateCheck() Dim myItems As Outlook.Items Dim currentAppointment As Object Dim myAppointments As Object Dim strDate Dim...

I read it on the Error dialog box ! here is my new operational version Public Sub GetItemFolderPathAndSwitch() '--------------------------------------------------------------------------------------- ' Procedure : GetItemFolderPathAndSwitch ' Author : Michael BAUER, improved by OLiv ' Date...

Hi Michael, I agree with you ! But my code is an alpha version, so it lacks instructions in the ErrorHandler, to handle the case folders with the "show in conversation", and other instructions were there, to test other ways. I wanted to uncheck the "show in conversations" option with msoexecute...