Merhabalar,
Benim makro ile mail göndermede ufak bi sorunum var,
aşağıda benim mail gönderme makrosunun kodlarının bir kısmı var, bu kod bütün şubeler için kopyala yapıştır ile çoğaltıılıyor, ancak burda benim 2 sorunum var yardımcı olabilir misiniz,
burdaki mantık şu; bi excelde ayrı bir makro var ve şube isimlerine göre exceli parçalara bölüyor(şube isimlerinden kasıt şehir isimleri), sonra aşağıdaki makro şube isimlerine göre o dosyaları atach yapıyor, ilgili şubeye word üzerinden gönderiyor.
burdaki en büyük sorun hepsinin subject kısmı aynı gidiyor,ben subject kısmının atachdeki dosya adı olmasını istiyorum? yani hangi şubeye gidiyorsa onun adı yazıcak böylece!
birde bu kodlara eklenen yeni şubeleri kopyala yapıştır ile ekledim ama yeni şubelere göndermiyor nedenini anlayamadım
Kodlar aşağıda yer almakatadır.Umarım yardımcı olabilrisiniz,
Herkese teşekkürler şimdiden
If FileExists("C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.xls") Then
ChangeFileOpenDirectory "C:\SUBE_YAZILARI\DOSYALAR\"
Documents.Open FileName:="MAIL_FORMATI.doc"
ChangeFileOpenDirectory "C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\"
Selection.InsertFile ("C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.XLS")
With Application.ActiveDocument.MailEnvelope
.Item.To = "SEFAKÖY-259"
.Item.cc = "CC-TRAKYA"
.Item.Send
End With
Kill "C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.xls"
ActiveWindow.Close wdDoNotSaveChanges
End If
Benim makro ile mail göndermede ufak bi sorunum var,
aşağıda benim mail gönderme makrosunun kodlarının bir kısmı var, bu kod bütün şubeler için kopyala yapıştır ile çoğaltıılıyor, ancak burda benim 2 sorunum var yardımcı olabilir misiniz,
burdaki mantık şu; bi excelde ayrı bir makro var ve şube isimlerine göre exceli parçalara bölüyor(şube isimlerinden kasıt şehir isimleri), sonra aşağıdaki makro şube isimlerine göre o dosyaları atach yapıyor, ilgili şubeye word üzerinden gönderiyor.
burdaki en büyük sorun hepsinin subject kısmı aynı gidiyor,ben subject kısmının atachdeki dosya adı olmasını istiyorum? yani hangi şubeye gidiyorsa onun adı yazıcak böylece!
birde bu kodlara eklenen yeni şubeleri kopyala yapıştır ile ekledim ama yeni şubelere göndermiyor nedenini anlayamadım
Kodlar aşağıda yer almakatadır.Umarım yardımcı olabilrisiniz,
Herkese teşekkürler şimdiden
If FileExists("C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.xls") Then
ChangeFileOpenDirectory "C:\SUBE_YAZILARI\DOSYALAR\"
Documents.Open FileName:="MAIL_FORMATI.doc"
ChangeFileOpenDirectory "C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\"
Selection.InsertFile ("C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.XLS")
With Application.ActiveDocument.MailEnvelope
.Item.To = "SEFAKÖY-259"
.Item.cc = "CC-TRAKYA"
.Item.Send
End With
Kill "C:\SUBE_YAZILARI\BOLUNMUS_RAPORLAR\SEFAKÖY-İST.xls"
ActiveWindow.Close wdDoNotSaveChanges
End If