>Private strProfile, ; > strPassword , ; > strRecipient , ; > strBody > >strProfile = "myusername" >strPassword = "mypassword" >strRecipient = "myemail" >strSubject = "Test object mail" >strBody = "this is the message" > >theApp = CreateObject("Outlook.Application") >theNameSpace = theApp.GetNameSpace("MAPI") >theNameSpace.Logon(strProfile , strPassword) >theMailItem = theApp.CreateItem(0) >theMailItem.Recipients.Add( strRecipient ) >theMailItem.Subject = strSubject >theMailItem.Body = strBody >theMailItem.Send >theNameSpace.Logoff>i get this error when i run the code. i got this code from the faq section of the thread.