T
T-man
Hi,
I have the following code that will let me populate an Outlook email box but
it won't send automatically. It pops up on my screen requiring me to hit the
SEND button to send the email. What do I need to do to automate the send
button?
Thanks,
Todd.
If Level = 3 Then
strSubject = "Escalation Level 3 Notification"
strEmailList = "(e-mail address removed); "
strMessage = "A Maintenance Job has reached your Escalation
Level. Please Follow Up With Dispatcher about, "
DoCmd.SendObject acSendNoObject, acFormatRTF,
strEmailList, , , strSubject, strMessage, , False
DoCmd.close
ElseIf Level = 4 Then
strSubject = "Escalation Level 4 Notification"
strEmailList = "(e-mail address removed); "
strMessage = "A Maintenance Job has reached your
Escalation Level. Please Follow Up With Dispatcher about, "
DoCmd.SendObject acSendNoObject, acFormatRTF,
strEmailList, , , strSubject, strMessage, , False
DoCmd.close
End If
I have the following code that will let me populate an Outlook email box but
it won't send automatically. It pops up on my screen requiring me to hit the
SEND button to send the email. What do I need to do to automate the send
button?
Thanks,
Todd.
If Level = 3 Then
strSubject = "Escalation Level 3 Notification"
strEmailList = "(e-mail address removed); "
strMessage = "A Maintenance Job has reached your Escalation
Level. Please Follow Up With Dispatcher about, "
DoCmd.SendObject acSendNoObject, acFormatRTF,
strEmailList, , , strSubject, strMessage, , False
DoCmd.close
ElseIf Level = 4 Then
strSubject = "Escalation Level 4 Notification"
strEmailList = "(e-mail address removed); "
strMessage = "A Maintenance Job has reached your
Escalation Level. Please Follow Up With Dispatcher about, "
DoCmd.SendObject acSendNoObject, acFormatRTF,
strEmailList, , , strSubject, strMessage, , False
DoCmd.close
End If