Mail Göndərmə

[Ʌüsal]

Forma 3 ədəd Label, 5 ədəd TextBox, 1 ədəd Button əlavə edin.

1. Formun kod bölməısinə keçin və General bölməsinə aşağıdakı kodu daxil edin

Function EmailGonder(Email, Sifre, KiMe, MeSaJ, Movzu, GoNDeReN As String)
Dim iMsg, iConf, Flds

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 465
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = Email
Flds.Item(schema & "sendpassword") = Sifre
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = KiMe
.Subject = Movzu
.HTMLbOdy = MeSaJ
.Sender = GoNDeReN
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Function

2. Button1-ə klik edin və kodu daxil edin.

On Error GoTo Xeta:
Call EmailGonder(Text1.Text, Text2.Text, Text3.Text, Text5.Text, Text4.Text, "by VuSaL")
MsgBox "Email Ugurla Gonderildi :)", vbInformation, "Mesaj"
Exit Sub
Xeta:
MsgBox Err.Description, vbCritical, "Xeta baş verdi..."

[Ʌüsal]

kodda ozunuzde bezi deyisiklikler ede bilersiniz...Meselen SMTP server adresini port nomresini textboxlara yazdira bilersiniz...

[Ʌüsal]

Kodda bele bir deyisikli ketmek olar..yeni smtp serverin adini ve prot noresini programin ozunden yaza bileceyik.

 

Forma 2 eded TextBox ve 2 eded Label elave edin

Label 1-e SMYP: Label 2-ye ise Port yazin

 

kecek kodlardaki bezi deyisikliye

 

Evvelki kod:

 

Flds.Item(schema & "smtpserver") = "smtp.gmail.com"

Flds.Item(schema & "smtpserverport") = 465

 

Sonraki kod:

 

Flds.Item(schema & "smtpserver") = Text6.Text

Flds.Item(schema & "smtpserverport") = Text7.Text

 

Untitled-1.jpg

menu.jpg

[Delphi7]

Ʌüsal,

cox sag ol.Delphi7 de de bu kodlardan istifade etmek mumkundur.

[Ʌüsal]

xeyr mumkun deyil..delphide ferqlidir

onunda kodlarini yerlesdirecem vaxtim olan kimi