Thread: Custom Action when sending email
View Single Post
  #2  
Old July 30th 10, 06:48 PM
ruve1k ruve1k is offline
Junior Member
  
First recorded activity at Outlookbanter: Jul 2010
Posts: 2
Default
Try this.
Code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim Prompt As String, Response As Integer
  
  If InStr(1, Item.Subject, "WordToCompare", vbTextCompare) Then
    Prompt = "Do you wnat to add SOMETHING to the subject before sending?"
    
    Response = MsgBox(Prompt, vbYesNoCancel + vbQuestion, "Add to Subject")
    Select Case Response
      Case vbYes
        Item.Subject = Item.Subject & " SOMETHING"
      Case vbNo
        Exit Sub
      Case vbCancel
        Cancel = True
    End If
  End If

End Sub
Quote:
Originally Posted by Bruce Byrne View Post
Hi,

I am looking for a way to implement the following.

When email is sent with specific word/words in subject then prompt user with a yes/no/cancel question if they answer yes, then add something to the subject before the email is sent. If no, then just send, and if cancel, go back to the draft.

I've only done a little VBA so far, so any help would be much appreciated.

Thank-you
Ads