Slm Benim kendi çapımda hazırladığım bir mail yollama programım var. Bu programın bir butonuna 2 tane gorev vermek istiyorum Formda 5 texbox var sırasıyla konu, hedef, mesaj, gnderen ismi ve ıd si benim istediğim şeyse su gnder butonuna tıkladığında pargramınismi@gmail.com dan istenilen hedefe msj gnderilsin fakat gnderen ismi ve ıd hedef maile benim prgrama belirlediğim bir maile gitsin kullanıılar gormesin o mailiiiii :D ilginiz için tskleeerrr with great power comes great irresponsibility #deadpool

Private Sub Command1_Click MsgBox "Birinci İşlem" MsgBox "İkinci İşlem" End Sub mail gnderme kodunu alt alta iki kere yaz ikincisine kendi mail adresini yaz... -

Tuşun tıklanma zelligine 2 adet farklı fonksiyon yazarsın olur biter. Birde lütfen her cümlenin yada kelimenin son harfini uzatma Mühendis kahveyi projeye dnüştüren bir insan evladıdır.

kodları paylaşsam yardım edebilirmisinizzzz with great power comes great irresponsibility #deadpool

muridler ne zaman cevap vereceksinizzzzz :S with great power comes great irresponsibility #deadpool

acaba burdaki kodda mı değişiklik yapmam lazım yoksa dngü mü kullanmam lazım schema = "http://schemas.microsoft.com/cdo/configuration/"Flds. Item = 2Flds. Item = "smtp. gmail.com"Flds. Item = 465Flds. Item = 1Flds. Item = "deneme@gmail.com" 'buraya gmail adresini yazFlds. Item = "şifre" 'buraya da şifreni yazFlds. Item = 1Flds. Update with great power comes great irresponsibility #deadpool

Kodlar Burdaa Private Sub Command1_Click If Text2 = "" Or Text3 = "" Or Text1 = "" ThenMsgBox "Mesaj gnderilecek kişinin mail adresi, konu ve mesaj metni boş bırakılamaz!", , EndElse Dim iMsg, iConf, Flds Set iMsg = CreateObject Set iConf = CreateObject Set Flds = iConf. Fields schema = "http://schemas.microsoft.com/cdo/configuration/"Flds. Item = 2Flds. Item = "smtp. gmail.com"Flds. Item = 465Flds. Item = 1Flds. Item = "deneme@gmail.com" 'buraya gmail adresini yazFlds. Item = "şifre" 'buraya da şifreni yazFlds. Item = 1Flds. Update With iMsg. To = Text2. Text. From = Text3. Text. Subject = Text3. Text. HTMLbOdy = Text1. Organization = "Mail Organtion". ReplyTo = "-"Set. Configuration = iConfSendEmailGmail = . SendEnd WithEnd IfEnd Sub with great power comes great irresponsibility #deadpool

2 grev dediğin nasıl yani :) bunun için 2 yolu var 2 grevi koşulsuz yapıcaksa alt alta yaz ikisinide çalıştırır diyosan koşul var o zaman bool ifade tanımla 1 tane mesela dim isClicked as Booelan = false diye event a koşulu koy if isClicked false... else... diye yaparsın Si vis pacem para bellum.

buttonun click inde direk peşpeşe yaz gitsin