Resend Outlook email using VB when reminder starts RRS feed

  • Question

  • Hi everyone,

    I am trying to have a VB code in Outlook, which resend an email when (a) it is assigned to a specific category [Send Message] and (b) its reminder starts.

    Everything is working except:

    1. Attachment(s) cannot be included
    2. Email is in plain text, prefer HTML so tables and format can be remained

    Appreciate for any help. Thanks in advance.



    Private Sub Application_Reminder(ByVal Item As Object)
      Dim objMsg As MailItem
      Set objMsg = Application.CreateItem(olMailItem)
    If Item.Categories <> "Send Message" Then
      Exit Sub
    End If
      objMsg.To = Item.To
      objMsg.Subject = Item.Subject
      objMsg.Body = Item.Body
      objMsg.Attachments = Item.Attachments
      Set objMsg = Nothing
    End Sub

    Friday, November 18, 2016 6:56 AM

All replies

  • Hi ,

    did you try to debug the code?

    if not please try to do that and find the value of Item.Attachments.

    also check that attachment is available for appointment.

    please check it and let us know about that.



    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact

    Monday, November 21, 2016 10:29 AM