I use this routine in several apps. If Outlook is not open on the machine, it opens it behind the scenes and sends an e-mail, but the e- mail stays in the drafts folder until I open Outlook manually. I've tried DoEvents and a Sleep fucntion between the Send and the Outlook Close, but it doesn't help. How can I alter this code that that the e-mail ise sent. ******************************************************************************************** Public Sub Send_Auto_Email(Optional SendTo As String, Optional SendCc As String, Optional SendBcc As String, Optional mySubject As String, Optional myBody As String, Optional SendTime As Date, Optional NextSendTime As Date, Optional SendOnBehalfOf As String, Optional AID As Long, Optional EMPID As String) Dim oItem, SafeItem, myNameSpace Dim myOutlook As Outlook.Application Dim blnWeCreated As Boolean On Error Resume Next blnWeCreated = False Set myOutlook = GetObject(, "Outlook.Application") On Error GoTo 0 If myOutlook Is Nothing Then blnWeCreated = True Set myOutlook = New Outlook.Application End If Set myNameSpace = myOutlook.GetNamespace("MAPI") myNameSpace.Logon Set SafeItem = CreateObject("Redemption.SafeMailItem") Set oItem = myOutlook.CreateItem(0) SafeItem.Item = oItem 'set Item property SafeItem.Subject = mySubject SafeItem.To = SendTo SafeItem.CC = SendCc SafeItem.BCC = SendBcc SafeItem.Recipients.ResolveAll SaveSetting App.Title, "Log\" & EMPID & "\" & AID, "D) Subject", mySubject SaveSetting App.Title, "Log\" & EMPID & "\" & AID, "E) To", SendTo SaveSetting App.Title, "Log\" & EMPID & "\" & AID, "F) CC", SendCc SaveSetting App.Title, "Log\" & EMPID & "\" & AID, "G) BCC", SendBcc If Len(SendOnBehalfOf) > 0 Then SafeItem.SentOnBehalfOfName = SendOnBehalfOf End If SafeItem.Body = myBody & EmailFooter(SendTime, NextSendTime) SafeItem.Send If blnWeCreated = True Then myOutlook.Quit End If Set oItem = Nothing Set SafeItem = Nothing Set myOutlook = Nothing Exit Sub ErrorHandler: SaveSetting App.Title, "Log\" & EMPID & "\" & AID & "\Error", "Number", Err.Number SaveSetting App.Title, "Log\" & EMPID & "\" & AID & "\Error", "Description", Err.Description If Err.Description = "You do not have the permission to send the message on behalf of the specified user." Then SafeItem.SentOnBehalfOfName = "" SafeItem.Body = myBody SafeItem.Body = SafeItem.Body & vbCrLf & vbCrLf & vbCrLf _ & "*************************************************************************" & vbCrLf _ & "THIS E-MAIL WAS SUPPOSED TO BE SENT ON BEHALF OF ' " & UCase (SendOnBehalfOf) & " ' , BUT THE SQL ADMIN HAS NOT BEEN GIVEN THOSE RIGHTS." SafeItem.Body = SafeItem.Body & EmailFooter(SendTime, NextSendTime) SafeItem.BCC = SendBcc & "; " & SendOnBehalfOf Resume Else MsgBox Err.Number & " " & Err.Description Exit Sub End If End Sub ********************************************************************************************