çok araştırdım ama sade bir kod bulamadım, birsürü kod inceledim en sonunda kendi istediğim gibi bir kod hazırladım sizlerle paylaşmak istedim.
istediğiniz sayfayı seçiyor, pdf e dönüştürüyor ve mail gönderme ekranına istediğiniz konu başlığı ve açıklama ile geliyor. Mailinizi gönderdikten sonrada oluşturduğu pdf dosyasını da bilgisayarınızdan siliyor.. temiz iş
Sub Makro1()
Sheets("Teklif").Select
ChDir "C:\Users\ilhan.ates\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = ""
.Subject = "Fiyat Teklifi"
.Body = "Fiyat teklifimiz ekte gönderilmiştir."
.Attachments.Add "C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf"
.Save
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
MsgBox "Mail Gönderildi."
Kill "C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf"
End Sub
istediğiniz sayfayı seçiyor, pdf e dönüştürüyor ve mail gönderme ekranına istediğiniz konu başlığı ve açıklama ile geliyor. Mailinizi gönderdikten sonrada oluşturduğu pdf dosyasını da bilgisayarınızdan siliyor.. temiz iş
Sub Makro1()
Sheets("Teklif").Select
ChDir "C:\Users\ilhan.ates\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = ""
.Subject = "Fiyat Teklifi"
.Body = "Fiyat teklifimiz ekte gönderilmiştir."
.Attachments.Add "C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf"
.Save
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
MsgBox "Mail Gönderildi."
Kill "C:\Users\ilhan.ates\Desktop\Teklif_Dosyası.pdf"
End Sub
