THT DUYURU
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

siber güvenlik eğitimi
Seçenekler

Vb 6 GMAIL

TheExp3rT - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
07/2013
Nereden:
C:/
Mesajlar:
217
Konular:
85
Teşekkür (Etti):
24
Teşekkür (Aldı):
50
Ticaret:
(0) %
17
711
29-07-2013 13:20
#11
Alıntı:
C0nNeCtiOn´isimli üyeden Alıntı Mesajı göster
eyvallah kardesim fakat anlamadm bu kodlari butonami ekliyicem he bide kactane textbox lazim ?
Butona ekle sorun çıkarsa ö.m ile ulaş .
C0nNeCtiOn Teşekkür etti.
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
163
Teşekkür (Aldı):
606
Ticaret:
(0) %
C0nNeCtiOn Teşekkür etti.
C0nNeCtiOn - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
07/2012
Mesajlar:
711
Konular:
138
Teşekkür (Etti):
62
Teşekkür (Aldı):
41
Ticaret:
(0) %
29-07-2013 13:31
#13
tesekkurlerinizi verdim saolunnn
--------------------- NO SYSTEM IS SAFE
C0nNeCtiOn - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
07/2012
Mesajlar:
711
Konular:
138
Teşekkür (Etti):
62
Teşekkür (Aldı):
41
Ticaret:
(0) %
29-07-2013 13:49
#14
calismadi ki abicim o verdigin source mail attim gelmedi bana neden olabilir yardim lutfen ??
--------------------- NO SYSTEM IS SAFE
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
163
Teşekkür (Aldı):
606
Ticaret:
(0) %
29-07-2013 14:05
#15
Alıntı:
C0nNeCtiOn´isimli üyeden Alıntı Mesajı göster
calismadi ki abicim o verdigin source mail attim gelmedi bana neden olabilir yardim lutfen ??
ben denedim çalışıyo , buton içindekileri sil bunu yaz

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 protected]" ' Gmail adresi
Flds.Item(schema & "sendpassword") = "xxxxx" 'Şifre
Flds.Item(schema & "smtpusessl") = 1
Flds.Update

With iMsg
.To = Text2.Text 'gönderilecek adres
.From = "[email protected]" 'Kendi mailinizi yazın
.Subject = Text1.Text 'başlık
.HTMLbOdy = Text3.Text ' içerik
.Organization = "Mail Organtion"
.ReplyTo = "-"
Set .Configuration = iConf
SendEmailGmail = .Send
MsgBox "Gönderildi"
End With
C0nNeCtiOn - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
07/2012
Mesajlar:
711
Konular:
138
Teşekkür (Etti):
62
Teşekkür (Aldı):
41
Ticaret:
(0) %
29-07-2013 14:28
#16
peki bunlar icin ne eklemem lazim ?
--------------------- NO SYSTEM IS SAFE
CETQ - ait Kullanıcı Resmi (Avatar)
Uzman Üye
Üyelik tarihi:
02/2011
Mesajlar:
1.297
Konular:
165
Teşekkür (Etti):
163
Teşekkür (Aldı):
606
Ticaret:
(0) %
29-07-2013 14:30
#17
Alıntı:
C0nNeCtiOn´isimli üyeden Alıntı Mesajı göster
peki bunlar icin ne eklemem lazim ?
bişey eklemeye gerek yok
verdiğim source da butonun içindeki kodu sil bu verdiğimi yazıp dene
C0nNeCtiOn - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
07/2012
Mesajlar:
711
Konular:
138
Teşekkür (Etti):
62
Teşekkür (Aldı):
41
Ticaret:
(0) %
29-07-2013 14:35
#18
tamam deniyicem kodda bisey oynamiyoruz demi
--------------------- NO SYSTEM IS SAFE

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler