Makro ile aktif sayfayi belli bir huceredeki adrese e posta olarak gondermek

[av_rifat]

Merhaba;

Öncelikle şimdiden ilgilenen tüm üstadlara teşekkürler

ekli örnekte bulunan veri sayfasını bir makro ile bölge bazında sayfalara bölmeyi düşünüyorum sanıyorum bu kısmı ben halledebilirim ama örnekde bulunan Birinci Bölge Sayfasında yapmak istediğim ancak nasıl yapacağımı bilemediğim işlem şudur.

1 - Sadece Birinci Bölge Sayfasını Ek olarak göndermek İstiyorum
2 - Mümkün ise d2&"gmail.com" değil ise e2 hücresindeki adrese göndermek istiyorum

yardımlarınız teşekkürler

 

[Huseyinkis]

Ekteki kodları Denermisiniz.

Sub Mail()
Dim strDate As String
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Mail = Sheets("Birinci Bölge").Cells(2, 4).Value
Sheets("Birinci Bölge").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\BirinciBolge.xls", FileFormat:=56
ActiveWorkbook.Close False
Application.DisplayAlerts = True

Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
On Error Resume Next
.To = Mail
.Subject = "Birinci Bölge"
.Attachments.Add "C:\BirinciBolge.xls"
.Save
.Send
End With
Set NewMail = Nothing
Set OutApp = Nothing
Kill "C:\BirinciBolge.xls"
End Sub