Change "To address" when sending email. outlook

See more:

Outlook

VBA

Hi,

1) I tried to trigger a macro itemsend. but its not trigerring on senting a mail.
Below is the code. macro security is set to "no security".

2)Also i am access data in excel(rows and columns) from outlook.
can any one suggest a faster way to access datas in a excel file from outlook.

=========================================

Private WithEvents Items As Outlook.Items
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

   Item = MailItem

     If Item.To = "abc@abc.com" Then

         prompt$ = "Are you sure you want to send this message?"

       If MsgBox(prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check before Sending") = vbNo Then

       Cancel = True

      End If

    End If

End Sub

============================================

thanks in advance.