Çözüldü Mail Gönderimi Hakkında Destek :(

derisa963 · 30 Haziran 2018

Merhabalar Aşağıdaki Kodun ilgili adres ve mesaj içeriklerini "" tırnak içerisinde yazaraktan çalıştırdım fakat outlook umda bu dahil birçok mail kodlaması çalışmıyor outlook a gönderilen klasöründe hicbir içerik yok giden bilgisi olan yardım edebilecek üstadlarım varmı ?

kod:

Kod:

With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    
        
        Dim xlOutlook   As Object
        Dim xlMail      As Object
        Set xlOutlook = CreateObject("Outlook.Application")
        Set xlMail = xlOutlook.CreateItem(0)
        
        With xlMail
            .To = "emre.ipek643@gmail.com" 'Cells(i, "C").Value
            .CC = ""
            .Subject = "Talebiniz ile ilgili"
            .Body = "Merhaba " ' & Cells(i, "B").Value & Chr(10) & _
                        Cells(i, "A").Value & " numaralı talebi yönlendirmeniz gerekmektedir."
            .Save
            '.Display
            .Send
        End With
        
    
    Set xlMail = Nothing
    Set xlOutlook = Nothing
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub

turist · 30 Haziran 2018

VBA sayfasında
Üstteki menü başlıklarındaki Tools tıklayın References tıklayın,
Açılan kutu pencerede "missing" ile başlayan bir satır varmı kontrol edin.
Eğer yoksa ; aşağıa kadar inerek
Microsoft Excel 15.0 Object Library ve Microsoft Office 15.0 Object Library yazan satırların kutucuklarını tikleyin.
Excel dosyanızı kaydedip kapatın, tekrar açıp deneyin.

derisa963 · 1 Temmuz 2018

Teşekkür Ederim Üstad Düzeldi

Yalnız o düzelince bir sorun daha meydane geldi .
Misal Ben

Kod:

Dim hesap as Varian
hesap = Textbox1.value
.
.
.
With Mail
.To = hesap '<<<<<<<<<<<<<<<<<<<<<<<<<<<<
'.CC = ""
'.BCC = ""
.Subject = baslik
.Body = msg
.Send
End With

ok ile göstediğim variant olarak tanimladiğim textbox1 deki mail adresimi örnek : emre@mail.com ise gönderilecek mail e aynen şu şekilde yazıyor

Kod:

'emre@mail.com'

Buradaki tek tırnaklar mail adresinin yanlış olmasına sebep oluyor bunun için bir çözüm varmıdır. ?

turist · 1 Temmuz 2018

Dim hesap as String
hesap = Textbox1.Text

şeklinde deneyin.

derisa963 · 1 Temmuz 2018

turist' Alıntı:
Dim hesap as String
hesap = Textbox1.Text

şeklinde deneyin.

Dediğiniz Şekilde Birebir Yaptım Ama Hala Aynı Sorun Devam Ediyor Üstadım

derisa963 · 2 Temmuz 2018

sabahtandır uğraşıyorum arkadaslar bilgisi olan varmı

turist · 2 Temmuz 2018

Örnek excel dosyanızı ekleyebilirseniz, sorunu ve çözümü bulmak daha kolay olacak.

derisa963 · 2 Temmuz 2018

turist' Alıntı:
Örnek excel dosyanızı ekleyebilirseniz, sorunu ve çözümü bulmak daha kolay olacak.

Merhabalar.
Herşey için çok teşekkür ederim ben tekrardan gerekli açıklamaları örnek dosyada yaptım

turist · 2 Temmuz 2018

Deneyin.

Kod:

Private Sub CommandButton1_Click()
With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
Dim mll As String
Dim msg As String

            msg = TextBox2.Value
            mll = TextBox1.Text
            baslik = "Deneme Mail"
        
        Dim xlOutlook   As Object
        Dim xlMail      As Object
        Set xlOutlook = CreateObject("Outlook.Application")
        Set xlMail = xlOutlook.CreateItem(0)
        On Error Resume Next
        With xlMail
        .Attachments.Add tmp
    .HTMLBody = "<html><img src='cid:" & Dir(tmp) & "'></html>"
            .To = mll
            .CC = ""
            .Subject = baslik
            .Body = msg
            .Save
            .Display
            '.Send
        End With
        
    
    Set xlMail = Nothing
    Set xlOutlook = Nothing
    
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
MsgBox ("Islem Tamam."), vbQuestion, "BILDIRI"
End Sub

derisa963 · 2 Temmuz 2018

turist' Alıntı:
Deneyin.

Ustam Galiba Sorun Bende.
outlook sunucuya bağlanamıyor hatası veriyor

turist · 2 Temmuz 2018

Linki İnceleyin
Faydalı bilgi olabilir.

derisa963 · 2 Temmuz 2018

teşekkürler ustam.

Çözüldü Mail Gönderimi Hakkında Destek :(

derisa963

turist

Destek Ekibi

derisa963

turist

Destek Ekibi

derisa963

derisa963

turist

Destek Ekibi

derisa963

Ekli dosyalar

turist

Destek Ekibi

derisa963

turist

Destek Ekibi

derisa963