Yalnız Mesajı Göster
Eski 22-12-2017, 20:40  
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,840
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki şekilde deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub workbook_open()
On Error Resume Next
eskitarih = CDate(Range("W1").Value)
If Date <> eskitarih Then Ay
Range("W1").Value = Date
End Sub

Private Function Ay()
    Dim Rky As Object
    yol$ = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=yol, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, From:=1, To:=2, OpenAfterPublish:=False
    Set Rky = CreateObject("Outlook.Application").CreateItem(0)
    With Rky
        .To = "askmadige342@hotmail.com" '"kayaduman@gursoygrup.com.tr"
        .CC = ""
        .BCC = ""
        .Subject = "iş prg"
        .Body = "ek"
        .Attachments.Add yol$
        .Send
    End With
    Set Rky = Nothing: yol = ""
End Function
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla