Hello! The routine below works great when I send only one email. But
when
I send another email, I have to kill Outlook via Task Manager where it
is
immediately replaced by another session of Outlook and Outlooks again
comes up.

Any help with this greatly appreciated!

Rbollinger

=========================================================
Sub Send SendEmail()

On Error GoTo Err_Command11_Click

Dim stDocName, mTO, mCC, mSubject As String

stDocName = "frmSnapShot"
mTO = Forms!frmEmail!emailTO
mCC = Forms!frmEmail!emailCC
mSubject = Forms!frmEmail!Subject
mpath = Mid(Forms!frmIssues!FolderPath, InStr(1, Nz(Forms!
frmIssues!FolderPath), "#") + 1, 100)

DoCmd.SendObject acReport, stDocName, , mTO, mCC, , mSubject, IIf
(Forms!frmEmail!Check3 = -1, "Shared Directory:" & vbCrLf & mpath,
""), , False


Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description

Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: "
& Err.Description
Resume Error_out
Error_out:


End Sub