AccessTr.neTVisual Basic 6Visual Basic 6 Cevaplanmış Soruları

Vb ile Mail Yollamak Yardım!!

1 2
29/01/2010, 19:59

RoxorLoops

Arkadaşlar Bir textboxa girilen veriyi buton yardımıyla mail adresime yollamak istiyorum.Nasıl yapacağım konusunda bir fikrim yok.Yardımlarınızı bekliyorum.[/font]
29/01/2010, 20:37

maytas

Merhaba.
VB6 mı, VB.Net mi?
Ayrıca metin kutusundaki veriyi mesaj olarak mı göndermek istiyorsunuz?
29/01/2010, 22:53

RoxorLoops

evet textboxa girilen veriyi mesaj olarak mail adresime göndermek istiyorm vb.net kullanıyorm.
30/01/2010, 02:41

maytas

Merhaba.
VB6 olsaydı hemen cevaplardım, ama VB.Net'e daha yeni geçmeye çalışıyorum ve dediğinizi yapabilecek bilgiye henüz sahip değilim.
30/01/2010, 13:46

RoxorLoops

Sayın maytas teşekkürler ilginiz için rica etsem vb6 da vereceğiniz cevabı yazabilirimisiniz.
30/01/2010, 14:26

maytas

Merhaba.
Tek tek okuyarak gerekli yerlerde ilgili değişiklikleri yapın.
Yalnız bunun için popup desteği olan mail adresi kullanmalısınız. Gmail böyle bir hizmet veriyor.

Kod:
Dim Mail As Object
    Dim Bicim As Object
    Dim Mesaj As String
    Dim Alan As Variant

    Set Mail = CreateObject("CDO.Message")
    Set Bicim = CreateObject("CDO.Configuration")

        Bicim.Load -1
        Set Alan = Bicim.Fields
        With Alan
'            .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'gmail gibi sunuculara bu da gerekir.
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveradı"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Kullanıcı Adı"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Şifre"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With

    Mesaj = Textbox1.Text

    With Mail
        Set .Configuration = Bicim
        .To = "alacakmailadresi"
        .CC = ""
        .BCC = ""
        .From = """Adı Soyadı"" <gönderen mail adresi>"
        .Subject = "Merhaba!!!"
        .TextBody = Mesaj
        .Send
    End With
1 2