Dosyaları Otomatik Mail Gönderme

[Ahmet54]

Arkadaşlar öncelikle merhaba;

Forumda aradım ancak benim problemime yakın bir tane konu var oda yanıtlanmamış.

Sizden yardımcı olmanızı istediğim konu şudur.

Elimde 1100 adet pdf dosyası var. Bunları posta olarak eğer posta adresleri yoksa faks olarak ilgili kişilerine göndermem gerekiyor.

Bunun için bir excell tablom var elimde

a sütununda gideceği kişinin ismi
b sütununda gideceği mail adresi
c sütununda gideceği faks adresi

(not a sütunundaki isimler ile pdf klasörü içindeki dosya isimleri aynı)


benim istediğim;

Z:\pdf klasörü içindeki dosyaları excell sayfamdaki kişilerle karşılaştırıp ilgili kişinin mail adresine standart bir başlık ile dosyayı da ekleyerek göndermek istiyorum.

Öncelikle bu mümkün müdür?


İşi biraz daha zorlamak gerekirse. Sanırım biraz hayal ama olmazda değil sanırım
Mail adresi olmayan kişileri yazıcı faks olarak kullandığım yazıcıya ilgili dosyayı yazdır komutu verip açılan sayfada faks yazıcısını seçip okeyledik ten sonra ilgili kişinin faks adresini yazıp gönder butonuna basmasını istiyorum.

Arkadaşlar en azından mail kısmını yapmalıyım. manuel olarak yaparsam bu işi beni 2 hafta meşgul edecek.
İlgilenen arkadaşlara şimdiden teşekkür ederim...

 

[Ahmet54]

önceki mesajdaki durum olumsuz sa ekteki çalışmayı geliştirebiliriz.

ekte bir mutabakat mektubu çalışması göreceksiniz ve bir makro kayıtlı. bu dosyayı yine bu forumdan erryan adlı kullanıcı istemiş Hüseyin Çoban isimli arkadaşımız yardımcı olmuş.

ancak ekteki benim için yeterli kalmıyor.
kullandığım muhasebe programından bakiye sayfasındaki verileri çıktı olarak alabiliyorum. ve mail atıldıktan sonra c sürücüsü altına pdf olarak kayıt alıyor.
Ancak bendeki cari sayısı 1100 kadar ileride bu artabilir de. bu excell dosyasında eksik kalan kısımlar ise maili zamanlayabimek 10 saniye arayla mesela.

tüm bunlara ek olarak faks destekleyen yazıcım var bilgisayardan faks göndermeme olanak sağlıyor. faks numaralarını girip yazıcıya komut verme imkanımız olur mu?
faks gönderme imkanımız olmuyorsa. Mail gönderemediğimiz carileri farklı bir klasöre kayıt etmemiz mümkün mü.




Ekli dosyayı görüntüle Örnek-Düzeltilmiş_01.rar

 

[hamitcan]

Z:\pdf klasörü içindeki dosyaları excell sayfamdaki kişilerle karşılaştırıp ilgili kişinin mail adresine standart bir başlık ile dosyayı da ekleyerek göndermek istiyorum.
..

Dosyanızdaki kod, bu işi görmüyor mu ?

Sub MAİLGÖNDERİKİ()
'
Application.ScreenUpdating = False
Dim mm As Worksheet
Dim sb As Worksheet
Set mm = Sheets("Mutabakat Mektubu")
Set sb = Sheets("bakiye")
'
aa = sb.[b65536].End(3).Row
For a = 3 To aa
mm.Cells(7, "b") = sb.Cells(a, "b")
mm.Cells(9, "b") = sb.Cells(a, "e")
mm.Cells(15, "b") = sb.Cells(a, "c")
mm.Cells(15, "d") = sb.Cells(a, "d")
Sheets("Mutabakat Mektubu").Select
Sheets("Mutabakat Mektubu").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & sb.Range("B" & a) & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = sb.Range("f" & a)
'.CC = ""
'.BCC = ""
.Subject = "Mutabakat"
.body = mm.Cells(12, "a")
.Attachments.Add "C:\" & sb.Range("b" & a) & ".pdf"
.Save
.Display   'göndermek için .Send
'.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Next a
sb.Select
Application.ScreenUpdating = True
MsgBox " B i t t i "
'
End Sub

 

[Ahmet54]

İlk mesajdaki olayı karşılamıyor. ikinci mesajda istediğimi ise kısmen karşılıyor. Tamamı ile karşılaması için göndereceğim firmanın adresini, vergi dairesini, vergi numarasını, vb değişken bilgileri mutabakat mektubu üzerinde bulundurmam gerekiyor. Anlayacağın bir sürü değişken giriyor işin içine.

Hamitcan en basit şekilde ilk mesajdaki sadece mail göndermeyi yapabilir miyiz?
yani
Z:\pdf klasörü içindeki dosyaları excell sayfamdaki kişilerle karşılaştırıp ilgili kişinin mail adresine standart bir başlık ve mesaj içeriği ile dosyayı da ekleyerek göndermek istiyorum.

sadece bu olsa işimi görür. Çünkü zamanım çok daraldı. Yetiştiremeyeceğim sanırım.

 

[hamitcan]

Bu satır zaten istediğinizi yapıyor. Mail gönderimi ile ilgili satırları silmeniz yeterli.

.Attachments.Add "C:\" & sb.Range("b" & a) & ".pdf"

Sub MAİLGÖNDERİKİ()
'
Application.ScreenUpdating = False
Dim mm As Worksheet
Dim sb As Worksheet
Set mm = Sheets("Mutabakat Mektubu")
Set sb = Sheets("bakiye")
'
aa = sb.[b65536].End(3).Row
For a = 3 To aa
mm.Cells(7, "b") = sb.Cells(a, "b")
mm.Cells(9, "b") = sb.Cells(a, "e")
mm.Cells(15, "b") = sb.Cells(a, "c")
mm.Cells(15, "d") = sb.Cells(a, "d")
Sheets("Mutabakat Mektubu").Select


With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = sb.Range("f" & a)
'.CC = ""
'.BCC = ""
.Subject = "Mutabakat"
.body = mm.Cells(12, "a")
[color=red].Attachments.Add "C:\" & sb.Range("b" & a) & ".pdf"[/color]
.Save
.Display   'göndermek için .Send
'.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Next a
sb.Select
Application.ScreenUpdating = True
MsgBox " B i t t i "
'
End Sub

 

[Ahmet54]

Merhaba;
Yine bu forumdan bulduğum macroyu kendime göre uyarladım. Sorunsuz çalışıyor ancak bir iki eksiğim kaldı.

Göndermeye başla butonuna bastığımda önce F sutununu kontrol edip varsa mail adresine yoksa E sutunundaki faks numarasına faks göndermesini istiyorum. ve bu işlemi 3 dakika ara ile yapmasını istiyorum.

Bilgisayardan herhangi bir dosyayı faks göndermek için hp laserjet professional m1210 mfp yazıcı faksı kullanıyorum.



Bu cihazdan faks gönderimi: yazdır butonuna basıp yazıcı seçiminde hp laserjet professional m1210 mfp u seçiyorum yazdır diyorum aşağıdaki ekran açılıyor

ilgili alana el ile yada copy paste ile numarayı yapıştırıp faksı gönderiyorum.


Uzun süredir bununla uğraşıyorum.

İngilizcem olmadığı için yabancı forumları araştıramıyorum. HP den yardım almak istedim microsoft'a yönlendirdi.Microsofttan destek almak istedim yardımcı olamadılar. farklı yerlere yönlendiriyorlar.

Lütfen yardımcı olun iş yükümü hafifletmem lazım lütfen.

 

[hamitcan]

Öncelikle, aşağıdaki linkleri incelemenizi öneririm.
http://www.excel.web.tr/f48/userform-yardymy-ile-nasyl-fax-cekebilirim-t42821.html
http://excelunusual.com/how-to-fax-from-microsoft-excel-by-yoav-ezer1/

 

[Ahmet54]

Öncelikle, aşağıdaki linkleri incelemenizi öneririm.
http://www.excel.web.tr/f48/userform-yardymy-ile-nasyl-fax-cekebilirim-t42821.html
http://excelunusual.com/how-to-fax-from-microsoft-excel-by-yoav-ezer1/

Merhaba Hamit Bey;
Öncelikle ilgi ve alakanız için çok teşekkür ederim. Ancak vermiş olduğunuz linklerde ki veriler bana yardımcı olmuyor. Yabancı forumdaki örneği indirdim. Biraz inceledim ancak sanırım oda winfax gibi bir programa ihtiyaç duyuyor.
Benim yapmak istediğim yazıcı tarayıcı ve faks kullandığım cihaz üzerinden gönderebilmek.