listbox değerlerini notepad a gondermek

[BG]

arkadaslar ;
dun listbox da bulunan degerleri nasil mail atarim seklinde bir soru sormustum, fakat bir yanit alamadim, bende farkli cozumler aramaya calisiyorum, listboxda bulunan degerleri notepad a atarak notepad dosyasini mail ile godermeyi planliyorum yardimci olabilirmisiniz?


not:listbox kaynagina bagli kalmayin, bu dosyada degil ama asil dosyada sorgu ile listbox a veriler geldigi icin degerler degisken arkadaslar.

mail butonu calisiyor kafat listbox ı okuyamadigi icin bos mail geliyor

 

[hamitcan]

Kodları aşağıdakiler ile değiştiripi deneyin.

Dim yol As String

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 = "abc@def.com"
.CC = ""
.BCC = ""
.Subject = "abcdef"
.Body = a
.Attachments.Add yol & Sheets(1).Name & ".txt"
.Send
 
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub


Private Sub CommandButton2_Click()
    yol = "C:\text\" 'Dosyaların kaydedileceği yol
    ChDir yol
        With Sheets(1)
            Open yol & .Name & ".txt" For Output As #1
                For x = 1 To .[a65536].End(3).Row
                    Print #1, .Cells(x, 1), .Cells(x, 2)
                Next x
            Close #1
        End With
End Sub

Private Sub UserForm_Initialize()
'Dim son As Long
ListBox1.ColumnHeads = False
ListBox1.ColumnCount = 2
ListBox1.RowSource = "sheet1!A1:b5"
With UserForm1
.Height = Application.Height
.Width = Application.Width
End With
End Sub

 

[BG]

sayin hocam ;
ilginize tesekkur ederim, cok guzel bir calisma emeginize saglik , kodlardan anladigim kadariyla c:\text\klasörünün icinde sayfa adini vererek listbox1 deki degerleri olusturan bir txt olusurturuyor fakar mail gelmiyor problem ne olabilir sizce? tekrar bakarbilirseniz sevinirim tesekkurler

 

[BG]

problem yokmus

tamam hocam oldu cok tesekkur ederim, ben mail adresinde hata yapmisim tesekkur ederim tekrar cok sagolun.

 

[BG]

sayın hamitcan

hocam tıpkı outlook programı gibi mail alıp gondermemizi saglayan lotus programı hakkında bilginiz varmı? bununla ilgili bir kaynak onerebilirmisiniz cunku verdiginiz kodlar ile outlook a login olarak mail gonderiyor, fakat lotus programına login olması gerekiyormus sizi tekrar ugrastirmamak icin bir kaynak rica edebilirmiyim, verdiginiz kodları lotus icin duzenlemek istiyorum.

 

[hamitcan]

Sayın brain, lotus hakkında bilgim yok. Kaynak istiyorsanız, adminimiz, Hüseyin bey ile görüşmenizi öneriyorum. Size bu konuda yardımcı olabilir.

 

[BG]

sayın hamitcan

yardimlariniz icin tesekkurler hocam emeginize saglik iyi calismalar dilerim.