Seçili Alanı e-posta gönder

[ozkovlu]

Merhabalar;
Excel de seçili alanı pdf olarak e-mail atmak istiyorum. Farklı bir siteden aşağıdaki kodlaraulaştım. Ancak çalıştıramadım. Seçmiş olduğum alanı nasıl e-mail gönderebilirim.
Dosya ektedir.
Saygılarımla...

Private Sub CommandButton1_Click()
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 veya Üstü OFFİCE SÜRÜMÜ NE İSE İŞARETLİ OLMALI
'Klasör içerisindeki SaveAsPDFandXPS exe çalıştırıp kurmalısınız
On Error Resume Next
ActiveSheet.Range("A2:e21").Select 'PDF yapılacak alanın secilmesi
ChDir "C:\" 'PDF dosyasını kayıt yapılacağı yer
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Rapor.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'PDF olarak ayarla
Dim OutApp As Outlook.Application '=
Dim NewMail As Outlook.MailItem '=
Set OutApp = New Outlook.Application '= Outlook Mail Tanımlamaları
Set NewMail = CreateItem(olMailItem) '=
With NewMail '=
.To = "e5" 'Gönderilecek Mail adresi
.Subject = "Rapor" 'Mail Başlığı
.Body = "Fiyat teklifimiz ekte gönderilmiştir." 'Açıklama
.Attachments.Add "C:\Rapor.pdf" 'Eklenecek dosya ve yeri
.Save 'Kaydet
.Display 'Ekran
End With
Set NewMail = Nothing 'Hafızadan sil
Set OutApp = Nothing ' ""
MsgBox "Mail Gönderildi." 'Eylemin tamamladığına dair mesaj
'Kill "C:\Rapor.pdf" 'İstege göre oluşturulan dosyayı silebilirsiniz
End Sub

http://s3.dosya.tc/server10/2e2nat/e-posta_gonder.xls.html

 

[PLİNT]

Merhaba
Şöyle denermisiniz?

 Private Sub CommandButton1_Click()
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 veya Üstü OFFİCE SÜRÜMÜ NE İSE İŞARETLİ OLMALI
'Klasör içerisindeki SaveAsPDFandXPS exe çalıştırıp kurmalısınız
On Error Resume Next
ActiveSheet.Range("A2:e21").Select 'PDF yapılacak alanın secilmesi
ChDir "C:\" 'PDF dosyasını kayıt yapılacağı yer
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Rapor.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False 'PDF olarak ayarla
  Dim objOutlook As Object
                Dim objMail As Object
                Set objOutlook = CreateObject("Outlook.Application")
                Set objMail = objOutlook.CreateItem(0)
                With objMail
               .Display 'Ekran
.To = "e5" 'Gönderilecek Mail adresi
.Subject = "Rapor" 'Mail Başlığı
.Body = "Fiyat teklifimiz ekte gönderilmiştir." 'Açıklama
.Attachments.Add "C:\Rapor.pdf" 'Eklenecek dosya ve yeri
.Save 'Kaydet
'.Send  'GÖNDER.......
End With
Set objMail = Nothing  'Hafızadan sil
Set objOutlook = Nothing  '    ""
MsgBox "Mail Gönderildi." 'Eylemin tamamladığına dair mesaj
'Kill "C:\Rapor.pdf" 'İstege göre oluşturulan dosyayı silebilirsiniz
End Sub

 

[ozkovlu]

Göndermiş olduğunuz kodu denedim. Mesaj geliyor fakat ekte dosya yok.

 

[PLİNT]

Göndermiş olduğunuz kodu denedim. Mesaj geliyor fakat ekte dosya yok.

Pdf dosyasımı oluşmuyor?
Yukarıdaki kodlar ile şöyle sonuç veriyor http://i.hizliresim.com/1VR4JD.gif

(değişen bölüm adres bölümü )

.To = Range("E5").Value 'Gönderilecek Mail adresi

 

[ozkovlu]

Sayın Plint ilginiz için teşekkürler.
Göndermiş olduğunuz resimde tam istediğim şekilde olmuş, fakat bende pdf dosyası oluşmuyor.
http://s8.dosya.tc/server3/dkwpco/ekli_dosya.PNG.html

 

[ozkovlu]

.Attachments.Add "D:\Rapor.pdf" 'Eklenecek dosya ve yeri

C yi D yaptım sıkıntı çözüldü.