Hi!
I have a module for sending e-mail using CDO. It looks something like this:
Everything works OK, but a lot of the/my recepients complain that my e-mails go to SPAM. I send max 200 e-mails at one time using a loop over recepients email and the module above.
What can I change to avoid going into SPAM problem??
Tnx in advance!!!
Miha
I have a module for sending e-mail using CDO. It looks something like this:
Code:
Dim iCfg As Object
Dim iMsg As Object
Set iCfg = CreateObject("CDO.Configuration")
Set iMsg = CreateObject("CDO.Message")
With iCfg.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.*.si"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*@*.si"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
.Item("http://schemas.microsoft.com/cdo/configuration/sendemailaddress") = """comp d.o.o."" <*@*.si>"
.Update
End With
With iMsg
If Not Nz(strReceiptTo, "") = "" Then
' Request read receipt
.Fields("urn:schemas:mailheader:return-receipt-to") = strReceiptTo
.Fields("urn:schemas:mailheader:disposition-notification-to") = strReceiptTo
' Update fields
.Fields.Update
End If
.Configuration = iCfg
.Subject = zadeva
.To = za
.cc = cc
.Bcc = Bcc
'.HTMLBody = besedilo
.TextBody = besedilo
.AddAttachment attach
If Not Nz(attach2, "") = "" Then
.AddAttachment attach2
End If
.send
End With
Set iMsg = Nothing
Set iCfg = Nothing
Everything works OK, but a lot of the/my recepients complain that my e-mails go to SPAM. I send max 200 e-mails at one time using a loop over recepients email and the module above.
What can I change to avoid going into SPAM problem??
Tnx in advance!!!
Miha