Fatura gönderimi

[bambilic]

Merhabalar Değerli Üstatlar
İşim gereği devamlı fatura kesiyorum. Kesilen bu fturaları image writer formatında mail atıyorum. Her kestiğim yeni fatura eski fatura nosuna 1 ekleyerek artıyor.
Yani dün kesmiş olduğum Fatura No: 95 ise bugün Fatura No: 96 olarak kesiyorum. Şablon olarak hep bi gün öncesinin faturasını açıp gerekli düzeltmeleri yapıp farklı kaydet ile fatura nosuna 1 ekleyerek yapıyorum
Şimdi yardım etmenizi istedğim konu makro yardımı ile dosyayı 1 ekleyerek farklı kaydetip image writer olarak mail atması ve image writerin silinmesi
Yardımı olacak herkese teşekkürler

 

[bambilic]

kimsenin bi fikri yok mu acaba?

 

[bambilic]

Yok mu yardımı olacak kimse?
Mevcut excel şablonunu farklı kaydedip outlook a attachment olarak ekleyip ilgili kişiye mail attıktan sonra silinmesini sağlıyabiliyorum.
Ama bi türlü image writer olarak gönderme işlemini yapamadım

With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName

ActiveWorkbook.ChangeFileAccess xlReadOnly
Set Workbook = Nothing
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False