AMAZON SES SENT SMTP EMAIL

Dim iMsg, iConf, Flds Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields Const cdoSendUsingPort = 2 With Flds .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "email-smtp.us-east-1.amazonaws.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ABCDE" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345" .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With With iMsg Set .Configuration = iConf .To = "bar@foo.com" .From = "foo@bar.com" .Subject = "test" .TextBody = "body" .Send End With response.write("sent")

Be the first to comment

You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.