Ms.Outlookdaki dosyaları aktarılması

[1903emre34@gmail.com]

Merhabalar,

Mail adresinin yanında, manul olarak e-mail adresi yazdığımız zaman, Dosyaları getir bastığımız zaman, "Gelen Dosyalar", kısmına mail adresinin yazdığımız kişilerden gelen dosyalar gelmesi (pdf dosyalar)

"Akarılacak Dosyalar bölümüne, bilgisayarın masaüstünde dosyaların gelmesi, gelen dosyaların seçip, aktarılacak dosyaları aktarılması için nasıl kod oluşturabiliriz?
http://s9.dosya.tc/server2/bycal7/Mail.rar.html

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz; istediğiniz böylemi?
http://s6.dosya.tc/server8/xhcft4/Mail.zip.html

 

[1903emre34@gmail.com]

Merhaba, Üstad

Evdeki bilgisayarda, Ms.Outlook olmadığı için, deneme şansım olmadı; şimdi ofise geldim denedim, ama mail adresine manuel yazıyorum, mail adresinden gelen dosyaları liste bastığım zaman "Gelen Dosyalar" kısmına herhangi bir şey gelmiyor. Resimdeki gibi, başka kişiden gelen pdf dosyaları bilgisayara kaydetmek.

 

[PLİNT]

Merhaba
Kullandığınız Outlook ta birden fazla kayıtlı mail kimliğ varsa
Dosya\Hesap ayarları açılan pencereden "e-posta" ile "veri dosyaları" sekmelerinde dosyaların alınacağı (sizin) hesabınız varsayılan olarak işaretli olmalıdır

 

[1903emre34@gmail.com]

"e-posta" ile "veri dosyaları kısımları işaretli.

 

[PLİNT]

Denedim bende bir sıkıntı çıkmıyor.
Adresleri arama ile bulan "Commandbutton1" kodlarını döngü ile deneyelim
Lisbox a listelerse 2. buton kodlarını da buna göre düzenleriz
"O4" hücresine dosyaları gönderen adres tam yazılmalı

[SIZE="2"]Private Sub CommandButton1_Click()
  Dim d, e
ListBox1.Clear
ListBox2.Clear
       Set a = CreateObject("Outlook.Application")
    Set b = a.GetNamespace("MAPI")
    Set c = b.GetDefaultFolder(6)
    For Each msg In c.Items
 gereksiz = 0
gereksiz = InStr(1, msg.SenderEmailAddress, "Mailer-Daemo", vbTextCompare) + InStr(1, msg.SenderEmailAddress, "postmaster", vbTextCompare)
If gereksiz = 0 Then
If TypeName(msg) = "MailItem" Then
If msg.SenderEmailAddress = [COLOR="Blue"]Range("O4").Value[/COLOR] Then
If msg.Attachments.Count > 0 Then
For say = 1 To msg.Attachments.Count
If InStr(1, msg.Attachments(say).Filename, ".pdf", vbTextCompare) > 0 Then
gt = Left(msg.Attachments(say).Filename, InStrRev(msg.Attachments(say).Filename, ".") - 1)
ListBox1.AddItem gt
End If: Next
End If: End If: End If: End If
    Next
End Sub[/SIZE]