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