Qwin,
It is possible to create a macro to send emails, you would use SendObject. However I have problems manipulating macros. I created a module with this function and it looks at the current ticket (Form Log), opens up the record for the related customer and gets the email address, then emails the ticket number to my customer. Once done it places a check in the box next to Emailed? this way it doesn't repeat that ticket again
'-----------------------------------------------------------
' Emai
'-----------------------------------------------------------
Function Email(
On Error GoTo Email_Er
Dim addy As Strin
Dim Customer As Strin
Dim Ticket As Strin
' Check for Emailed Statu
If Forms!LOG!Emailed = False The
'Lookup Customer info for this ticket and get Addres
Dim stDocName As Strin
Dim stLinkCriteria As Strin
stDocName = "Customer
stLinkCriteria = "[Name]=" & "'" & Forms!LOG![CustomerName] & "'
DoCmd.OpenForm stDocName, , , stLinkCriteria, , acHidde
addy = Forms!Customer!txtEmai
' Get Customers Name and the ticket number from the Lo
Customer = Forms!LOG!Nam
Ticket = Forms!LOG!Problem_Numbe
' Emails the ticket number to the custome
DoCmd.SendObject , , , addy, , , "Your SCS Help Desk Ticket Number is " & Ticket, Customer & " Thank you for contacting the helpdesk. Your ticket number is going to be, " & Ticke
' Sets emailed status to tru
Forms!LOG!Emailed = Tru
End I
Email_Exit
Exit Functio
Email_Err
MsgBox Error
Resume Email_Exi
End Functio
