[Yardım]  Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

İleti#1)  mcb1991 » 22 Eyl 2019 20:11

Merhaba bir sorum var. Forumda biraz aradım fakat bir sonuca ulaşamadım.
Excel Vba Userform üzerinde 1 adet listbox, 1 tane checkbox ve 1 buton var.
listbox'dan seçtiğim kişiye excel satırında yazan mesajı gönderiyor.
Fakat Checkbox'a tümünü seç ve mail gönderdiğimde hata veriyor.

hata veren yer : olmail.To = Me.ListBox2.Column(6) biraz araştırırken başka kodlarda yazdım ama olmadı.
Listbox 2'deki 6 kolondaki mesajı gönderiyor fakat çoklu seçim yaptığımda burası hata veriyor nasıl bir kod yazmalıyım?

İkinci sorumda, Mail gönderirken altına oluştuğuduğum imzayı eklesin istiyorum fakat bunuda başamadım.
Manuel mail atarken imza mailin altına otomatik geliyor fakat, hazırlamaya çalıştığım dosyada mail göndermeye çalıştığımad eklenmiyor.

Aşağadaki koda hangi kodları eklemem gerekli yardımcı olabilir misiniz?

Kod: Tümünü seç

Dim S1 As Worksheet, i
Set S1 = Sheets("Deneme")


Dim olapp As Outlook.Application
Set olapp = CreateObject("outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olapp.CreateItem(olMailItem)

olmail.To = Me.ListBox2.Column(6)
olmail.Subject = "Mail Başlığı"
olmail.Body = "Sayın " & Me.ListBox2.Column(1) & ", " & vbNewLine & " mail içeriği " & vbNewLine & vbNewLine & vbNewLine & "Bu mail otomatik olarak gönderilmektedir"
olmail.Send
Me.CommandButton10.Enabled = True


End Sub
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

İleti#2)  erseldemirel2 » 22 Eyl 2019 20:23

2.Sorunuz ile alakalı örnek bir ek var. Ekteki dosya kendi yedeğini alıp mail atıyor ve outlookda kayıtlı 1. imzanızı ekliyor
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 571
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

İleti#3)  şahin » 22 Eyl 2019 20:41

Dosyayı paylaşırsanız üzerinde çalışırız.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 831
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

İleti#4)  şahin » 22 Eyl 2019 20:53

1. sorun için bunu dene
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, i
Set S1 = Sheets("Deneme")


Dim olapp As Outlook.Application
Set olapp = CreateObject("outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olapp.CreateItem(olMailItem)
If Me.CheckBox1.Value = True Then
For i = 0 To Me.ListBox2.ListCount - 1
   olmail.To = Me.ListBox2.List(i, 6)
Next i
ElseIf Me.CheckBox1.Value = False Then
    olmail.To = Me.ListBox2.Column(6)
End If
olmail.Subject = "Mail Başlığı"
olmail.Body = "Sayın " & Me.ListBox2.Column(1) & ", " & vbNewLine & " mail içeriği " & vbNewLine & vbNewLine & vbNewLine & "Bu mail otomatik olarak gönderilmektedir"
olmail.Send
Me.CommandButton10.Enabled = True
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 831
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyoru

İleti#5)  mcb1991 » 22 Eyl 2019 21:34

şahin yazdı:1. sorun için bunu dene
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, i
Set S1 = Sheets("Deneme")


Dim olapp As Outlook.Application
Set olapp = CreateObject("outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olapp.CreateItem(olMailItem)
If Me.CheckBox1.Value = True Then
For i = 0 To Me.ListBox2.ListCount - 1
   olmail.To = Me.ListBox2.List(i, 6)
Next i
ElseIf Me.CheckBox1.Value = False Then
    olmail.To = Me.ListBox2.Column(6)
End If
olmail.Subject = "Mail Başlığı"
olmail.Body = "Sayın " & Me.ListBox2.Column(1) & ", " & vbNewLine & " mail içeriği " & vbNewLine & vbNewLine & vbNewLine & "Bu mail otomatik olarak gönderilmektedir"
olmail.Send
Me.CommandButton10.Enabled = True
End Sub


Hocam Hata verdi.
Kod: Tümünü seç
Run-time error 381
Couldn't get the column porperty. Invalid property array index.


Şu satır hatalı diyor

Kod: Tümünü seç
olmail.Body = "Sayın " & Me.ListBox2.Column(1) & ", " & vbNewLine & "Mail İçeriği buraya." & vbNewLine & vbNewLine & vbNewLine & "Bu mail otomatik olarak gönderilmektedir " & vbNewLine & vbNewLine & vbNewLine & "Bu mail otomatik olarak gönderilmektedir"


Dosyayı paylaşmaya çalıştım fakat içinde kişisel bilgiler var, userformu başka bir excele aktardım ama hep hata aldığım için yüklemekten vazgeçtim.
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

Cevap: Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyoru

İleti#6)  mcb1991 » 22 Eyl 2019 22:03

erseldemirel2 yazdı:2.Sorunuz ile alakalı örnek bir ek var. Ekteki dosya kendi yedeğini alıp mail atıyor ve outlookda kayıtlı 1. imzanızı ekliyor

Hocam daha önce bu dosyayı gördüm ve biraz inceledim fakat uygulayamadim.
Ben Sayfa kodlarıyla değilde User form üzerinden gönderiyorum. O yüzden burdaki kodu oraya uygulayamadım.
İkincisi benim hazır tasarladığım html olarak imza var sadece onun altına eklemesini istiyorum.
Yukarıda paylaştığım koda sadece imza ekleme kodunu eklemek istiyorum.

strBody = 'Buraya ne yazmalıyım ki outlookta imzalar sayfasındaki html imzamı mailin altına eklesin, veya bir adres mi yazmalıyım?

Kod: Tümünü seç
strBody = "<font face=Tahoma size=3> Saygılarımla </calibri> <p>" & _
"<font color=green> Saygılarımla " & _
"please visit: <a href=http://www.www.com> www.com.</a></font>"

Bu kısım
Kullanıcı avatarı
mcb1991
Yeni Başlamış
 
Kayıt: 12 Ağu 2019 10:06
Meslek: Genel Koordinatör
Yaş: 28
İleti: 25
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Pendik

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listbox Tümünü Seç Ve Mail Gönder Hata alıyorum

İleti#7)  şahin » 22 Eyl 2019 22:14

Ekteki örneği inceleyin

Kitap1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 831
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe