folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder VB6 DA Buttona İki Görev Nasıl Verebilirim



VB6 DA Buttona İki Görev Nasıl Verebilirim

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    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,gönderen ismi ve ıd si benim istediğim şeyse su gönder butonuna tıkladığında pargramınismi@gmail.com dan istenilen hedefe msj gönderilsin fakat gönderen 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‬
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SinusX
    SinusX's avatar
    Kayıt Tarihi: 14/Aralık/2010
    Erkek

    2 görev dediğin nasıl yani :) bunun için 2 yolu var 2 görevi 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.
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    kodları paylaşsam yardım edebilirmisinizzzz

     

    with great power comes great irresponsibility ‪#‎deadpool‬
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    SpermMan
    SpermMan's avatar
    Kayıt Tarihi: 12/Haziran/2007
    Erkek

    Private Sub Command1_Click()

    MsgBox "Birinci İşlem"

    MsgBox "İkinci İşlem"

    End Sub

    mail gönderme kodunu alt alta iki kere yaz ikincisine kendi mail adresini yaz...

    -
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    Kodlar Burdaa

    Private Sub Command1_Click()
    If Text2 = "" Or Text3 = "" Or Text1 = "" Then
    MsgBox "Mesaj gönderilecek kişinin mail adresi, konu ve mesaj metni boş bırakılamaz!", (vbOKOnly), ("Uyarı")

    End
    Else


    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") = "deneme@gmail.com" 'buraya gmail adresini yaz
    Flds.Item(schema & "sendpassword") = "şifre" 'buraya da şifreni yaz
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update

    With iMsg
    .To = Text2.Text
    .From = Text3.Text
    .Subject = Text3.Text
    .HTMLbOdy = Text1
    .Organization = "Mail Organtion"
    .ReplyTo = "-"
    Set .Configuration = iConf
    SendEmailGmail = .Send
    End With
    End If
    End Sub

    with great power comes great irresponsibility ‪#‎deadpool‬
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    acaba burdaki kodda mı değişiklik yapmam lazım yoksa döngü mü kullanmam lazım

    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") = "deneme@gmail.com" 'buraya gmail adresini yaz
    Flds.Item(schema & "sendpassword") = "şifre" 'buraya da şifreni yaz
    Flds.Item(schema & "smtpusessl") = 1
    Flds.Update

     

    with great power comes great irresponsibility ‪#‎deadpool‬
    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    gowand
    gowand's avatar
    Kayıt Tarihi: 07/Ocak/2010
    Erkek

    muridler ne zaman cevap vereceksinizzzzz :S

    with great power comes great irresponsibility ‪#‎deadpool‬
    Reply With Quote Alıntı yap
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    All hail to Tux
    sandman
    sandman's avatar
    Kayıt Tarihi: 01/Eylül/2005
    Erkek

    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 dönüştüren bir insan evladıdır.
    Reply With Quote Alıntı yap
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    palin
    palin's avatar
    Kayıt Tarihi: 09/Temmuz/2010
    Erkek

    buttonun click inde direk peşpeşe yaz gitsin

     

    Reply With Quote Alıntı yap
Toplam Hit: 2832 Toplam Mesaj: 9