Merhaba,
makro ile oluşturduğum sheetleri mail ile göndermeye çalışıyorum fakat başarılı olmadım.
iki farklı şekilde oluşturdum. modul 1 ve modul 2 olarak. Dosya ektedir.
Modul 1
takıldığım nokta olmail.Attachments.add komutundan sonra sheet nasıl belirtebilirim.
bu konuda yardımcı olabilecek var mı ?
olmail.To = email_alıcı
olmail.Subject = "Aylık Satış Raporu"
olmail.Body = "Merhaba, Raporunuz ektedir."
olmail.Attachments.add
olmail.Send
Modul 2
burada ise ek olarak dosyayı gönderiyor fakat mail body ve ekli dosya ismini değiştiremiyorum.
bu değişiklikleri nasıl yapabilirim ?
Dim email_alici As String
Sheets("data").Activate
email_alıcı = Cells(i, 5)
ThisWorkbook.Worksheets(TEST).Copy
With ActiveWorkbook
.SendMail Recipients:=email_alıcı, Subject:="Aylık satış Raporu"
.Close savechanges:=False
End With
Bu konuda bilgisi olan varsa yardımcı olursa çok memnun olurum.
makro ile oluşturduğum sheetleri mail ile göndermeye çalışıyorum fakat başarılı olmadım.
iki farklı şekilde oluşturdum. modul 1 ve modul 2 olarak. Dosya ektedir.
Modul 1
takıldığım nokta olmail.Attachments.add komutundan sonra sheet nasıl belirtebilirim.
bu konuda yardımcı olabilecek var mı ?
olmail.To = email_alıcı
olmail.Subject = "Aylık Satış Raporu"
olmail.Body = "Merhaba, Raporunuz ektedir."
olmail.Attachments.add
olmail.Send
Modul 2
burada ise ek olarak dosyayı gönderiyor fakat mail body ve ekli dosya ismini değiştiremiyorum.
bu değişiklikleri nasıl yapabilirim ?
Dim email_alici As String
Sheets("data").Activate
email_alıcı = Cells(i, 5)
ThisWorkbook.Worksheets(TEST).Copy
With ActiveWorkbook
.SendMail Recipients:=email_alıcı, Subject:="Aylık satış Raporu"
.Close savechanges:=False
End With
Bu konuda bilgisi olan varsa yardımcı olursa çok memnun olurum.
Ekli dosyalar
-
64.8 KB Görüntüleme: 1