Skip to main content

AccessTr.neT


Vb ile Mail Yollamak Yardım!!

Vb ile Mail Yollamak Yardım!!

Çözüldü #1
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]
Cevapla
Çözüldü #2
Merhaba.
VB6 mı, VB.Net mi?
Ayrıca metin kutusundaki veriyi mesaj olarak mı göndermek istiyorsunuz?
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #3
evet textboxa girilen veriyi mesaj olarak mail adresime göndermek istiyorm vb.net kullanıyorm.
Cevapla
Çözüldü #4
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.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #5
Sayın maytas teşekkürler ilginiz için rica etsem vb6 da vereceğiniz cevabı yazabilirimisiniz.
Cevapla
Çözüldü #6
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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da