Private Sub Gonder_Click()
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") = "sizin [email protected]"
Flds.Item(schema & "sendpassword") = "sizin gmail şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "maili alacak olan şahısın adresi fark etmez"
.From = "maili alacak olan şahısın adresi fark etmez"
.Subject = "By-B@hô"
.HTMLbOdy = (Text1.Text + Text2.Text)
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
Merhaba bu konu daha önceden açıldığı diye yorum atmayın çünkü herkez yanlış paylaşmış buyrun size özel bütün kodları temizledim
.To = "maili alacak olan şahısın adresi fark etmez"
.From = "maili alacak olan şahısın adresi fark etmez
Bu yukarıdakı metinde anlaşılmasını istediğim bu maili alacak kişinin hotmail.com, live, msn.com gibi türler fark etmediğidir.Ancak bu iki yerde aynı şekilde doldurulmalıdır.
-----------------------------------------------------------------------------------------------------------------------------------
.Subject = "By-B@hô"
Burası size kalmış
------------------------------------------------------------------------------------------------------------------------------------
.HTMLbOdy = (Text1.Text + Text2.Text)
Bu kısım çok önemli ve parantez içinde olmalıdır. bu içeriktir yani şahıs text kutusuna yazdıktan sonra butona basınca size gelir aksi taktirde "sdsd" yaparsanız tırnak içindeki yazı gelir.Kodda iseniz tırkak işareti şart tabi böyle göndermek isterseniz.
ÖNEMLİ NOT:BU KOD COMMAND BUTONUN İÇİNE KOYULMALIDIR. ANCAK VE ANCAK
COMMAND BUTONU PROPERTİES KISMINDAN "NAME:" YAZAN YERDE COMMAND1 VEYA 2 ARTIK KAÇINCI BUTONSA ONU SİLİP ADINI:
Gonder
yapmalısınız
Sadece G harfi büyük olacaktır.
Eğer ilk baş isimi Gonder yaptıysanız en yukardaki kırmızı yeri almayınız.Ve iki tane End Sub olmamalıdır.
Bütün size özel değiştirilecek bilgiler tırnak içerinde yazılmalıdır.
.HTMLbOdy = (Text1.Text + Text2.Text) bu hariçtir bunu değiştirebilirsiniz içindeki veriyi ancak parantez içinde yapınız.parantez değilde birde tırnak işareti ilede deneyebilirsiniz.
Not:.HTMLbOdy = (Text1.Text + Text2.Text) bu kodda 2 adet textbox istiyor aksi takdirde hata alabilirsiniz siz tabiki 2 textbox yerine 1 textbox veya 1 laber vb her ne isterseniz yapabilirsiniz.
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") = "sizin [email protected]"
Flds.Item(schema & "sendpassword") = "sizin gmail şifreniz"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "maili alacak olan şahısın adresi fark etmez"
.From = "maili alacak olan şahısın adresi fark etmez"
.Subject = "By-B@hô"
.HTMLbOdy = (Text1.Text + Text2.Text)
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
End With
End Sub
Merhaba bu konu daha önceden açıldığı diye yorum atmayın çünkü herkez yanlış paylaşmış buyrun size özel bütün kodları temizledim
.To = "maili alacak olan şahısın adresi fark etmez"
.From = "maili alacak olan şahısın adresi fark etmez
Bu yukarıdakı metinde anlaşılmasını istediğim bu maili alacak kişinin hotmail.com, live, msn.com gibi türler fark etmediğidir.Ancak bu iki yerde aynı şekilde doldurulmalıdır.
-----------------------------------------------------------------------------------------------------------------------------------
.Subject = "By-B@hô"
Burası size kalmış
------------------------------------------------------------------------------------------------------------------------------------
.HTMLbOdy = (Text1.Text + Text2.Text)
Bu kısım çok önemli ve parantez içinde olmalıdır. bu içeriktir yani şahıs text kutusuna yazdıktan sonra butona basınca size gelir aksi taktirde "sdsd" yaparsanız tırnak içindeki yazı gelir.Kodda iseniz tırkak işareti şart tabi böyle göndermek isterseniz.
ÖNEMLİ NOT:BU KOD COMMAND BUTONUN İÇİNE KOYULMALIDIR. ANCAK VE ANCAK
COMMAND BUTONU PROPERTİES KISMINDAN "NAME:" YAZAN YERDE COMMAND1 VEYA 2 ARTIK KAÇINCI BUTONSA ONU SİLİP ADINI:
Gonder
yapmalısınız
Sadece G harfi büyük olacaktır.
Eğer ilk baş isimi Gonder yaptıysanız en yukardaki kırmızı yeri almayınız.Ve iki tane End Sub olmamalıdır.
Bütün size özel değiştirilecek bilgiler tırnak içerinde yazılmalıdır.
.HTMLbOdy = (Text1.Text + Text2.Text) bu hariçtir bunu değiştirebilirsiniz içindeki veriyi ancak parantez içinde yapınız.parantez değilde birde tırnak işareti ilede deneyebilirsiniz.
Not:.HTMLbOdy = (Text1.Text + Text2.Text) bu kodda 2 adet textbox istiyor aksi takdirde hata alabilirsiniz siz tabiki 2 textbox yerine 1 textbox veya 1 laber vb her ne isterseniz yapabilirsiniz.
Son düzenleme:
