SİZE MÜKEMMEL BİR MAİL GÖNDERME VE MAİL GÖNDERİM HATALATINI YORUMLAYAN SCRIPT ÖRNEĞİ SUNUYORUM. SCRİPTİN EN ALTIN DA SMTP GÖNDERİM HATA KAYITLARINI BULABİLİRSİNİZ.
AYSPro v8.0 da kullanılan bir kod.
Set Error Capture [ On ]
If [ IsEmpty ( Resim::DosyaYolu ) ]
Go to Layout [ “Yeni_Kayit” (AYS) ]
Set Field [ AYS::YolGlobal ; "filewin:/C:/Program Files/FileMaker/FileMaker Pro 11 Advanced/Web/Arsiv/" & AYS::KayitNo & "/" & AYS::KayitNo &".pdf" ]
Set Variable [ $Yol ; Value:AYS::YolGlobal ]
Send Mail [ Send via SMTP Server ; To: Resim::email; Subject: "İstediğiniz belgelin fotokopileri ektedir."; Message: "İstediğiniz belgelin fotokopileri ektedir.¶ ¶ Sagılarımla ¶ BeyazNet ¶ www.beyaz.net"; Attachment: “$yol” ; Name: Butonlar::Sender Name; Email Address: Butonlar::Email Address; Reply-To Address: Butonlar::Replay Address; SMTP Server: Butonlar::Smtp Server; Port: Butonlar::Smtp Port; Use SSL ; Authentication Type: Plain Password ; User Name: Butonlar::Smtp User Name; Password: Butonlar::Smtp Password ] [ No dialog ]
If [ IsEmpty ( Resim::email ) ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Gönderilecek kişinin mail adresini seçmediniz."; Default Button: “OK”, Commit: “Yes” ]
Go to Field [ Resim::email ]
Halt Script
End If
If [ IsEmpty (Resim::Image) ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Resim alanı boş."; Default Button: “OK”, Commit: “Yes” ]
Halt Script
End If
If [ Get(LastError)=1501 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "SMTP server ile Otantikasyon kurulamadı. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit: “No” ]
Halt Script
End If
If [ Get(LastError)=1502 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "SMTP server isteğinizi kabul etmedi. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit: “Yes” ]
Halt Script
End If
If [ Get(LastError)=1506 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Mail gönderilemedi. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit: “No” ]
Halt Script
End If
Show Custom Dialog [ Title: "Uyarı"; Message: "Mail başarıyla gönderildi."; Default Button: “OK”, Commit: “No” ]
Halt Script
17 Şubat 2015 22:35:34 AYS.fmp12 - E-Mail -2-
AYS: E-Mail
Else
Go to Layout [ “Yeni_Kayit” (AYS) ]
Set Variable [ $Yol ; Value:Resim::yol3 ]
Send Mail [ Send via SMTP Server ; To: Resim::email; Subject: "İstediğiniz belgelin fotokopileri ektedir."; Message: "İstediğiniz belgelin fotokopileri ektedir.¶
¶ Sagılarımla¶ BeyazNet ¶ www.beyaz.net"; Attachment: “$yol” ; Name: Butonlar::Sender Name; Email Address: Butonlar::Email Address; Reply-To Address: Butonlar::Replay Address; SMTP Server: Butonlar::Smtp Server; Port: Butonlar::Smtp Port; Use SSL ; Authentication Type: Plain Password ; User Name: Butonlar::Smtp User Name; Password: Butonlar::Smtp Password [ No dialog ]
If [ IsEmpty ( Resim::email ) ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Gönderilecek kişinin mail adresini seçmediniz."; Default Button: “OK”, Commit: “No” ]
Go to Field [ Resim::email ]
Halt Script
End If
If [ IsEmpty (Resim::Image) ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Resim alanı boş."; Default Button: “OK”, Commit: “No” ]
Halt Script
End If
If [ Get(LastError)=1501 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "SMTP server ile Otantikasyon kurulamadı. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit:
“No” ]
17 Şubat 2015 22:35:34 AYS.fmp12 - E-Mail -3-
AYS: E-Mail
Commit: “No” ]
Halt Script
End If
If [ Get(LastError)=1502 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "SMTP server isteğinizi kabul etmedi. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit: “No” ]
Halt Script
End If
If [ Get(LastError)=1506 ]
Show Custom Dialog [ Title: "Uyarı"; Message: "Mail gönderilemedi. Yöneticinize söyleyip, mail bilgilerinizi kontrol edin."; Default Button: “OK”, Commit: “No” ]
Halt Script
End If
Show Custom Dialog [ Title: "Uyarı"; Message: "Mail başarıyla gönderildi."; Default Button: “OK”, Commit: “No”
End If
