Answer to a special recipient always automatically with an attachment - vba

Question

I want to answer Wordpress contact form request with Outlook and want to automatically attach the AGB of my company as a PDF file everytime I respond. So I need to catch the sender and respond to the deposited Mail in the form. Is there a possibility to do this with VBA?
Thanks and regards from Germany
I just tried this code but nothing happend (I am a fully VBA noob):
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If obj.SenderEmailAddress = "wendt#getweb.io" Then
Sub NewMessageWithAttachment()
Dim oMsg As Outlook.MailItem
Set oMsg = Application.CreateItem(olMailItem)
With oMsg
.Attachments.Add "C:\\Users\\John Wendt\\Downloads\\schaum.jpg"
.Display
End With
End Sub

Answer 1

First of all, you need to remove the sub declaration from the ItemSend event handler in your code:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If obj.SenderEmailAddress = "wendt#getweb.io" Then
' do your stuff for the sender
End If
End Sub
Sub NewMessageWithAttachment()
Dim oMsg As Outlook.MailItem
Set oMsg = Application.CreateItem(olMailItem)
With oMsg
.Attachments.Add "C:\\Users\\John Wendt\\Downloads\\schaum.jpg"
.Display
End With
End Sub
Be aware, the ItemSend event handler is used for outgoing emails.
If you need to intercept incoming emails you may consider using the NewMailEx event instead. This event fires once for every received item that is processed by Microsoft Outlook. The item can be one of several different item types, for example, MailItem, MeetingItem, or SharingItem. The EntryIDsCollection string contains the Entry ID that corresponds to that item. Use the Entry ID represented by the EntryIDCollection string to call the NameSpace.GetItemFromID method and process the item. The NewMailEx event fires when a new message arrives in the Inbox and before client rule processing occurs.
See Getting started with VBA in Office to be more familiar with VBA in general.