iMsg = Createobject("CDO.Message") iConf = Createobject("CDO.Configuration") Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = 'mail.shelbynet.com' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourusernam" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword" .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .F. .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Update Endwith With iMsg .Configuration = iConf .To = "youremailaddress@someplace.com" .CC = "" .BCC = "" .From = "me@somewhere.com" .Subject = "Test is a test" .TextBody = "The body of the message" .Send() Endwith iMsg = .Null. iConf = .Null.It works for me and you don't get that dang outlook nag screen.