Pdf formatında mail atmak

[leventidil]

Arkadaşlar merhabalar ekte teklif cetveli var forumda aradım taradım bir sürü örnek var fakat bir türlü uygulamada beceremedim.teklif cetvelimi mail gönder butonuna bastığımda outlook üzerinden teklif adı altında pdf formatında mail göndermek istiyorum.direk olarak outlloka pdf olarak aktarsın istiyorum.bunu yapabilirseniz çok minnettar olurum teşekkürler. şimdiden.

 

[esad45]

Sub pdfmail()
'
' pdfmail Makro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\BILGIS~1\AppData\Local\Temp\Cetvel.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.WindowState = xlNormal
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_PDF_mail()

Application.ScreenUpdating = False
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI

Sheets("cetvel").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\" & Cells(3, "B") & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ""
.Subject = "Konu"
.Body = "İletiniz"
.Attachments.Add "C:\" & Cells(3, "B") & ".pdf"
'.Importance = 2 'önem düzeyi 2:yüksek 1:normal 0:düşük
.Save
.Display
'.Send ' gönder
End With
Set objMail = Nothing
Set objOutlook = Nothing
Kill "C:\" & Cells(3, "B") & ".pdf"
Application.ScreenUpdating = True
End Sub

. . .

 

[esad45]

ekteki dosyayı da pdf olarak gödermek

ek dosyayı sadece geçerli sayfayı pdf olarak göndermek istiyorum nasıl yapabilirim