mail adresleri aktarma

[ahmetozbey]

a1-a1000 arasında yazılı olan mail adreslerini bir buton yardımıyla başka bir sayfaya veya word dosyasına aktarmak istiyorum.(aktarıldığı zaman mail programındaki kime kısmına direk kopyala yapıştır yapabilecek şekilde) olmasını istiyorum.yardımcı olursanız memnun olurum.

 

[ahmetozbey]

arkadaşlar yardımlarınızı bekliyorum

 

[tahsinanarat]

sn. ahmetozbey Örnek bir dosya ile desteklermisiniz, daha çabuk cevap alabilirsiniz.

 

[ahmetozbey]

sorum ektedir.
yardımcı olursanız sevinirim.

 

[ahmetozbey]

yardımcı olursanız memnun olurum

 

[Kemal Demir]

Merhaba,

Öncelikle "C:\" dizinini altına email.txt dosyasını olusturunuz.
NOT:Veriler *.txt dosyasına altalt'a aktarılıyor.

Sub aktar()
Dim x As Integer
For x = 1 To [a65536].End(3).Row
Data = Cells(x, 1)
Open "c:\email.txt" For Append As #1
Write #1, Data
Close
Next
End Sub

İlla yan yan yazsın dıyorsanız Aşagıdaki kodu kullanabilirsiniz.

Sub aktar()
Dim x As Integer
Dim sondata As String
For x = 1 To [a65536].End(3).Row
Data = Data & ";" & Cells(x, 1)
Next
sondata = Data
Open "c:\email.txt" For Append As #1
Write #1, sondata
Close

End Sub

 

[veyselemre]

Aşağıdaki kodları bir modüle yapıştırın. Referanslardan "Microsoft Forms 2.0 Object Library" (C:\Windows\System\fm20.dll) seçili olmalı. Kod çalıştıktan sonra mail adreslerinizi istediğiniz yere yapıştırabilirsiniz.

Sub aktar()
    a = WorksheetFunction.Transpose(Range([a1], [a1].End(xlDown)).Value)
    Set MyDataObj = New DataObject
    MyDataObj.SetText Join(a, ", ")
    MyDataObj.PutInClipboard
    Set MyDataObj = Nothing
End Sub

 

[tahsinanarat]

Dosyanız ekte

Ben uğraşırken gerekli cevaplar gelmiş ama, boşa gitmesin diye ekliyorum.

 

[ahmetozbey]

teşekkür ederim yardımlarınız için