excel sayfasını e posta ile gönderme

[ibrahimaktas1905]

merhaba arkadaşlar bir excel çalışma kitabı var içerisinde ise 5 sayfa var. sadece 3 nolu sayfayı e posta olarak gönderebiliyor muyuz ?

 

[EmrExcel16]

Merhaba "Outlook" ile mi ?

 

[ibrahimaktas1905]

Merhaba "Outlook" ile mi ?

Evet

 

[EmrExcel16]

Sizin için örnek bir dosya hazirlamıştim , lakin cevap vermediğiniz için paylaşmaktan vazgeçmiştim.

 

[ibrahimaktas1905]

Sizin için örnek bir dosya hazirlamıştim , lakin cevap vermediğiniz için paylaşmaktan vazgeçmiştim.

kusura bakmayın. hakettim. laptop yanımda değildi ödünç vermiştim dün geldi cevap olarak geç dönüş yaptım.
fakat emek vermişsiniz yine de teşekkür ederim.

 

[EmrExcel16]

Deneyin.

Sub Sayfa_3_Mail_at()
    
    Dim FilePath As String
    Dim FileName As String
    Dim OutApp As Object
    Dim OutMail As Object
    On Error Resume Next
    
    Set WshShell = CreateObject("WScript.Shell")
    
    ThisWorkbook.Sheets("Sayfa3").Copy
  
    FilePath = WshShell.SpecialFolders("Desktop") + "\"
    FileName = "Sayfa3 " & Format(Now, "dd-mmm-yy h-mm-ss")
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
    ActiveWorkbook.SaveAs FilePath & FileName
    With OutMail
        .To = "deneme@gmail.com"
        .CC = "test@hotmail.com"
        .Subject = FileName
        .Body = "Merhaba ," & Chr(13) & Chr(13) & "Bilginize.." & Chr(13) & Chr(13) & "İyi calismalar..."
        .Attachments.Add ActiveWorkbook.FullName
        .Display
    End With
    ActiveWorkbook.Close SaveChanges:=False
    
 
    Kill FilePath & FileName & ".xlsx"

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

 

[EmrExcel16]

kusura bakmayın. hakettim. laptop yanımda değildi ödünç vermiştim dün geldi cevap olarak geç dönüş yaptım.
fakat emek vermişsiniz yine de teşekkür ederim.

Durum nedir , oldu mu ?

 

[ibrahimaktas1905]

evet gayet güzel oldu. elinize sağlık

 

[EmrExcel16]

Rica ederim , İyi çalışmalar .

 

[ultraslan38080]

Peki google chrome dan veya bu olmazsa internet explorerdan hotmail adresine otomatik girip buradan da otomatik gönderme yapılır mı?