Auto mail function for on click

[edzigns]

I would like to have an email sent on a 'ticket open' function. Using hosted exchange.

So on form 'Issues', would like to have the following occur, when clicking on SAVE [on click], outlook opens a new message, populates the following information then sends message automatically:

To: = support@company.com
Subject: Ticket [ID] has been opened and is awaiting assignment



Body: Ticket [ID] has been opened at [OpenedDateTime] by [OpenedBy].

[Details]

[edzigns]

Using Outlook 11 (2010) and Access 2003

[timmy]

Take a look here:
http://www.databasedev.co.uk/email-f...cess-form.html

Additional info:
http://msdn.microsoft.com/en-us/libr...ffice.12).aspx

[edzigns]

Thank you for the link, I was able to complete the majority of the script necessary. I am still unable to have it send automatically (without clicking send myself).

Did I miss something?

Here is my messy code:

Private Sub CloseCurrent_Click()

Status.Value = "Closed"
ClosedDate.Value = Now()
txtClosedByUser.Value = GetUser()

Dim stWhereEmail As String '-- Criteria for DLookup
Dim varTo As Variant '-- Email address to send to
Dim stText As String '-- E-mail text
Dim RecDate As Variant '-- Ticket action date for e-mail text
Dim stSubject As String '-- Subject line of e-mail
Dim stTicketID As String '-- The ticket ID from form
Dim stDetails As String '-- Ticket details
Dim stOpenedBy As String '-- Opened by
Dim stHelpDesk As String '-- Tech who closed ticket


'--Opened by
stOpenedBy = Me.[Opened By]
'-- Where email addresses found
stWhereEmail = "Contacts.[Email]"
'-- Looks up email address from Contacts
varTo = DLookup("[Email]", "Contacts", stWhereEmail)


stTicketID = Format(Me.[ID], "00000")
stDetails = Me.[Details]
RecDate = Me.[ClosedDate]

'-- Helpdesk employee ticket assigned to
strHelpDesk = Me.[Assigned To]

'--Email subject and details
stSubject = "Ticket: " & stTicketID & " has been closed"
stText = "Ticket number: " & stTicketID & " for " & stDetails & " was closed on: " & RecDate & Chr$(13) & Chr$(13) & "If this ticket was closed in error, please contact the Help Desk to re-open ticket." & Chr$(13) & "This is an automated message." & _ " Please do not respond to this e-mail."

'Write the e-mail content for sending to assignee
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1

End Sub

[timmy]

change:
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1

to
DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, 0