Konu: Mail gönderiminde hata
Mail gönderimi konusunda bir sorunum var arkadaşlar.
Aşağıdaki parametreleri göndererek mail gönderimini gerçekleştirebiliyorum. Eğer gönderdiğim mail adresi doğru ise sorunsuz çalışıyor. Yanlış ise try...catch ile yakalayıp yine sonraki mail gönderimi işlemine devam edebiliyorum. Tek mail adresi için hiç sorunsuz çalışıyor.
Ama eğer mailin gideceği adres birden fazla ise ve adreslerden 1 tanesi hatalı ise try... catch bloğuna düşmeden, doğru adreslere mailin gönderilmesini nasıl sağlayabilirim.
"OLE IDispatch exception.. The server rejected one or more address..." hatasıyla o mail gönderimi tümden kesiliyor. Benim istediğim doğru adreslere gitsin, yanlış adreslere gitmesin.
Try...catch ile hatayı yakalayıp çoklu adresleri tek tek ayırıp göndermeyi de deneyebilirim ama bu sefer mailin to: kısmı, cc: kısmı.. orjinalliği bozulacak.
PARAMETERS kimden1, kime1, baslik1, mesaj1, kime_cc1, kime_bcc1, mailserver1, kullanici1, sifre1, htmlformat1, atac1
LOCAL sema, ayar, mail
sema = "http://schemas.microsoft.com/cdo/configuration/"
ayar = CREATEOBJECT("CDO.Configuration")
WITH ayar.FIELDS
.ITEM(sema + "smtpserverport") = 25
.ITEM(sema + "sendusing") = 2
.ITEM(sema + "smtpserver") = mailserver1
.ITEM(sema + "smtpauthenticate") = 1
.ITEM(sema + "sendusername") = kullanici1
.ITEM(sema + "sendpassword") = sifre1
.UPDATE
ENDWITH
mail = CREATEOBJECT ("CDO.Message")
mail.Configuration = ayar
WITH mail
.FROM = kimden1
.TO = kime1
IF TYPE("kime_cc1") = "C"
.CC = kime_cc1
ENDIF
IF TYPE("kime_bcc1") = "C"
.BCC = kime_bcc1
ENDIF
.Subject = baslik1
IF htmlformat1
.HTMLBody = mesaj1
ELSE
.TextBody = mesaj1
ENDIF
IF ATAC1<>""
att=.AddAttachment(atac1)
ENDIF
.SEND()
ENDWITH