Email form opens 2 emails

[person1]

Hi

I am wondering if anyone can tell me why this form opens 2 emails?



It creates the email addressed, with subject, with content and attachment and then it opens a blank new email.

I didn't write it but I have been asked to fix it and I am new to Access.

Any help appreciated.
Regards.

Private Sub cmdemail_Click()

On Error GoTo HandleErr:

Dim myOlApp As Outlook.Application
Dim MyItem As Outlook.MailItem
Dim strSal As String, strName As String, strOFT As String

strOFT = "\\CGICSVR\Public\BOP\BOPEmail1.oft"
strName = "Dear " & Me!GivenName
strSal = "<p><font face='Verdana, Arial, Helvetica, sans-serif'>" & strName & ",</font></p>"

Set myOlApp = CreateObject("Outlook.Application")
Set MyItem = myOlApp.CreateItemFromTemplate(strOFT)

MyItem.To = Me!EmailAddress
MyItem.Attachments.Add "\\CGICSVR\Public\BOP\Bank On Property.pdf"
MyItem.HTMLBody = strSal & MyItem.HTMLBody
MyItem.Display
'MyItem.Send
Me!DateSent = Format(Now, "Short Date")
Me!Method = "Email"
ExitHere:
    Exit Sub

HandleErr:
    MsgBox Err & ": " & Err.Description
    Resume ExitHere

End Sub

[ajetrumpet]

creates two emails? e.g. - it creates 2 mail items you mean?

is one the template and the other the new mail item the code creates, I wonder?

[person1]

creates two emails? e.g. - it creates 2 mail items you mean?

is one the template and the other the new mail item the code creates, I wonder?

Yes, it creates 2 mail items. The first is the template with attachment and is addressed to the client.

The 2nd mail item is a blank, unaddressed mail item.

[ajetrumpet]

is there an option in outlook somewhere to automatically create a new message when you open the program?

I know there is an option to do that somewhere, but I don't know what event triggers it. similar to sending automatically/deleting trash when you exit outlook...

[person1]

Any ideas? Surely someone on this forum must know