listbox da bulunan değerlerin mail ile gonderilmesi

[BG]

merhaba arkadaslar , cevremdeki arkadaslarimdan ve yaptigim arastirmalar sonucu cok guzel bir site oldugunu ogrendim araniza yeni katildim, arkadaslar ekte gonderdigim dosyada listbox da bulunan degerlerin mail ile ilgili adrese gonderilmesini istiyorum bunun icin gerekli kodlari yazmaya calistim fakat calistiramadim nerde hata yapiyorum acaba ilgilenirseniz memnun olurum, herkese iyi calismalar dilerim.

 

[BG]

arkadaslar kodlar ve user form yazili sadece kod da bir yerlerde hata yapiyor olmaliyim sebebini bulamadim sorun nedir sizce?

kod:

Private Sub CommandButton1_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim a As String
a = ListBox1.Text
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "xxx@yyy.com"
.CC = ""
.BCC = ""
.Subject = "deneme"
.Body = a
.Attachments.Add a
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

[muhceli]

sayın "brain"
kullandığınız kodu formdan aldığınız belli oluyor:
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " İŞARETLEYİNİZ ...

 

[BG]

sayın arkadasim kodlarda bir hata yok mu sizce?

 

[muhceli]

Sayın "brain" bende fazla birşebilmiyorum aynı kodları kollandım bende çalıştıramamıştım.
' "Tools ->References-> ( Microsoft Outlook 1.1 Object Library ) " işaretleyince çalıştı ...

 

[gencosman]

Merhaba arkadaşlar...

Bu dosyayı neden açamıyorum acaba? Dosyayı indirdim ama açamadım. Şu an sisteme kayıtlıyım oysa!
Selâmlar...