çalışılan kitabı mail ile göndermek

[halilerdem]

çalışmış olduğum kitapta birden fazla sayfa var , mevcut durumda çalışılan sayfayı outlook ile gönderebiliyorum fakat çalışılan kitabın tamamını gönderebilmek için makroya ihtiyacım var yardımcı olabilir misiniz

 

[sametozyavuz]

Sub Email_CurrentWorkBook()
'Gönderilecek e-mail bilgilerini değiştirmeyi unutmayın...
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = "info@cizgiakademi.com"
.CC = "admin@cizgiakademi.com"
.BCC = "yardim@cizgiakademi.com"
.Subject = "Test Sürüşü"
.Body = "cizgiakademi.com ' İleri Düzey Excel Eğitimleri"
.Attachments.Add ActiveWorkbook.FullName
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub

başka siteden alıntı

 

[burcin_end_muh]

çalışmış olduğum kitapta birden fazla sayfa var , mevcut durumda çalışılan sayfayı outlook ile gönderebiliyorum fakat çalışılan kitabın tamamını gönderebilmek için makroya ihtiyacım var yardımcı olabilir misiniz

Dosyayı inceleyiniz

 

[halilerdem]

teşekkürler