Yalnız Mesajı Göster
Eski 22-12-2017, 20:43  
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,706
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr
Varsayılan

Alıntı:
Private Function Ay()
Dim Rky As Object
yol$ = ThisWorkbook.Path & "\" & Split(ThisWorkbook.Name, ".")(0) & ".pdf"
Range("C1:L49").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\KASA\Desktop\s.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Set Rky = CreateObject("Outlook.Application").CreateItem(0)
With Rky
.To = "kayaduman@gursoygrup.com.tr"
.CC = ""
.BCC = ""
.Subject = "iş prg"
.Body = "ek"
.Attachments.Add yol$
.Send
End With
Set Rky = Nothing: yol = ""
End Function
sayfa pdf ye çevrildiğinde alan belirtin ve yolu siz düzeltin , şu an bu kodları deneme şansım yok sadece mantık yürütebildim
cems Çevrimdışı   Alıntı Yaparak Cevapla