Kod:
On Error GoTo hata
Set objCDOMail = CreateObject("CDO.Message")
objCDOMail.to = ""
objCDOMail.From = ""
objCDOMail.Subject = ""
objCDOMail.Addattachment ""
objCDOMail.TextBody = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
objCDOMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOMail.Configuration.Fields.Update
objCDOMail.Send
Set objCDOMail = Nothing
hata: