C
Charlie via AccessMonster.com
How do I actually send a message? I have the code below to send email, but
all it does is open Outlook with the To: field populated. Then the user
has to click the send button.
How do I just send the message without opening Outlook for edit?
Here's my code:
Private Sub ComboStatus_AfterUpdate()
If Me.ComboStatus = "closed" Then
If MsgBox("Only Person Reported This Issue Can Close It. Do you wish to
Continue? ", vbOKCancel) <> vbOK Then
Else
Me.CloseDate = Date
MsgBox "Person Reported this Issue Is Notified!"
DoCmd.SendObject acSendNoObject, , , Me.ReportedbyEmail, , , "Discrepancy
Issue Tracking No: " & Me.TrackingNo & "", "THIS ISSUE HAS BEEN CLOSED.
Please Confirm Closure or Reopen. THANK YOU! - Closed Date: " & Date
Exit Sub
End If
End If
End Sub
all it does is open Outlook with the To: field populated. Then the user
has to click the send button.
How do I just send the message without opening Outlook for edit?
Here's my code:
Private Sub ComboStatus_AfterUpdate()
If Me.ComboStatus = "closed" Then
If MsgBox("Only Person Reported This Issue Can Close It. Do you wish to
Continue? ", vbOKCancel) <> vbOK Then
Else
Me.CloseDate = Date
MsgBox "Person Reported this Issue Is Notified!"
DoCmd.SendObject acSendNoObject, , , Me.ReportedbyEmail, , , "Discrepancy
Issue Tracking No: " & Me.TrackingNo & "", "THIS ISSUE HAS BEEN CLOSED.
Please Confirm Closure or Reopen. THANK YOU! - Closed Date: " & Date
Exit Sub
End If
End If
End Sub