dosya acıldıgında bır sayfanın maıl atılması

[kneehot]

herkese ıyı calısmalar.arkadaslar asagıda sızden aldıgım bır makro var bunun uzerınde bır degısıklıkte yardım ıstıyorum.asagıdakı makro tum dosyayı butona basınca tanımlı maıl adreslerıne yolluyor.bunun uzerınde degısıklık yapıp sadece dosya ıcındekı günlük adlı sayfayı dosya acıldıgı anda bır butona basmaya gerek kalmadan tanımlı adreslere gonderecek sekle donusturebılırsenız cok sevınırım.tum yardımlara tesekkurler.



Sub OutlookMsgGönder()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String

ActiveWorkbook.Save
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = "abc@123.com;def@456.com"
'.BCC =
.Subject = [d2] & " " & "TARİHLİ" & " " & [g2] & " ÇEK DÖKÜMÜ"
.Body = "MERHABA" & Chr(13) & Chr(13) & [g2] & " " & [d2] & " TARİHLİ ÇEK DÖKÜMÜ" & Chr(13) & Chr(13) & "İYİ ÇALIŞMALAR."
.Attachments.Add MyFile
'.Display'Bu satırı kapatıp
.Send 'bu satırı açın.
End With
Application.DisplayAlerts = True

Set app = Nothing
Set posta = Nothing
'**********************************************************************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'**********************************************************************
End Sub

 

[hamitcan]

İlgili sayfanın kod kısmına ekleyin.

Private Sub Worksheet_Activate()
Dim app As Outlook.Application
Dim posta As Outlook.MailItem
Dim MyFile As String

ActiveWorkbook.Save
MyFile = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

Set app = CreateObject("Outlook.Application")
Set posta = app.CreateItem(olMailItem)
With posta
.To = "abc@123.com;def@456.com"
'.BCC =
.Subject = [d2] & " " & "TARİHLİ" & " " & [g2] & " ÇEK DÖKÜMÜ"
.Body = "MERHABA" & Chr(13) & Chr(13) & [g2] & " " & [d2] & " TARİHLİ ÇEK DÖKÜMÜ" & Chr(13) & Chr(13) & "İYİ ÇALIŞMALAR."
.Attachments.Add MyFile
'.Display'Bu satırı kapatıp
.Send 'bu satırı açın.
End With
Application.DisplayAlerts = True

Set app = Nothing
Set posta = Nothing
'************************************************* *********************
'Referanslardan Microsoft Outlook X.X Object Library seçili olmalıdır.*
'************************************************* *********************
End Sub

 

[kneehot]

cok tesekkurler ılgınıze fakat maılı sadece ılgılı sayfayı secınce gonderıyor.dosya acıldıgı anda o sayfayı gonderebılırse sayfaya tıklama gereksınımı olmadan cok sevınırım.

 

[kneehot]

ayrıca sımdı gordum tum dosyayı yolluyor sadece tek sayfayı yollamasını ıstıyorum eger mumkunse.

 

[hamitcan]

Daha önce de buna benzer biri soru sormuşsunuz ve ben yanıtlamışım. Aşağıdaki linkte konu detaylı şekilde irdelenmiş.
http://www.excel.web.tr/showthread.php?t=75068&highlight=mail
Kitap açıldığında hangi sayfayı göndermesini istiyorsanız, aşağıdaki kodda belirtip yukarıda verdiğim kodu da o sayfaya eklemeniz yeterli.

Private Sub Workbook_Open()
İlgili sayfayı seçmesini sağlayın. Örn: Sheets("deneme").select gibi.
End Sub

 

[kneehot]

Daha önce de buna benzer biri soru sormuşsunuz ve ben yanıtlamışım. Aşağıdaki linkte konu detaylı şekilde irdelenmiş.
http://www.excel.web.tr/showthread.php?t=75068&highlight=mail
Kitap açıldığında hangi sayfayı göndermesini istiyorsanız, aşağıdaki kodda belirtip yukarıda verdiğim kodu da o sayfaya eklemeniz yeterli.

Private Sub Workbook_Open()
İlgili sayfayı seçmesini sağlayın. Örn: Sheets("deneme").select gibi.
End Sub

tesekkurler sayın hamitcan bıraz ugrasırsam yapıcam sanırım.