Pdf yapılan dosyayı Outlook içine atma

[Mdemir63]

Selamlar,

Ekteki dosyamda PDF yaptığım dosyayı Outlook içine mail gönderebilmek için
otomatik olarak atabilir miyim?

saygılar

 

[Mdemir63]

Selamlar

sorumu yanlış sormuş olabilirim. Sadece Pdf dosyamı mail olarak atmak istiyorum. Yani düğmeye bastığımda Pdf yapacak (yapıyor) sonra mail atmak için mail hesabıma ekleyecek. Böyle birşey mümkün mü?

Saygılar

 

[u.L.a.s]

Aşağıdaki kod düzeneğinde kırmızı renkli yerde dosyanın yolu var. göndereceğin dosyanın yolunu burdan değiştirerek ve hep o yolda tutarak dosya gönderme işlemi yapabilirsin

With Outmail
                .To = "xxx@mail.com"
                .CC = ""
                .bcc = "xxx@mail.com; yyy@mail.com; zzz@mail.com"
                .Subject = "Liste"
                .Attachments.Add "[COLOR="Red"][B]C:\DosyaYolu\liste.xlsm[/B][/COLOR]"
                .body = "Merhabalar" & Chr(13) & Chr(13) & "en güncel liste ektedir." & Chr(13) & Chr(13) & "İyi Çalışmalar" & Chr(13) & Chr(13) & "Ad Soyad"
                .Display
                .Send
            End With

 

[Tekniker4181]

Merhabalar.Bu işlem outlookta nasıl oluyor? Aynı mı acaba

 

[Erdem Akdemir]

Merhabalar.Bu işlem outlookta nasıl oluyor? Aynı mı acaba

Merhaba,

İşlem Outlook'ta değil, excel üzerinden yapılıyor.

 

[Erdem Akdemir]

Merhaba,

Tagdaki kodu kullanabilirsiniz.

Send ve Kill 'in başındaki tek tırnağı kaldırırsanız mail gönderebilir ve daha sonra pdf'i silebilirsiniz. Send'den tek tırnağı kaldırırsanız dosyanızın pdf'ini mail atabilir ama silmezsiniz.

Sub PDF_KAYDET()

    Yol = ThisWorkbook.Path
    Dosya_Adi = Split(ThisWorkbook.Name, ".")(0)
    ChDir Yol
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & "\" & Dosya_Adi & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
Set App = CreateObject("Outlook.Application")
Set Mail = App.CreateItem(0)
    
    With Mail
                .To = "xxx@mail.com"
                .CC = ""
                .bcc = "xxx@mail.com; yyy@mail.com; zzz@mail.com"
                .Subject = "Liste"
                .Attachments.Add Yol & "\" & Dosya_Adi & ".pdf"
                .body = "Merhabalar" & Chr(13) & Chr(13) & "en güncel liste ektedir." & Chr(13) & Chr(13) & "İyi Çalışmalar" & Chr(13) & Chr(13) & "Ad Soyad"
                .Display
                '.Send
            End With
    'Kill Yol & "\" & Dosya_Adi & ".pdf"
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[u.L.a.s]

Excelde pdf bir dosya kaydediliyorda peki uzantı olarak .pl şeklinde bir dosya kaydedilirmi.

yani bu kodda atıyorum xxx.pdf diye bir dosya oluşuyor ya. xxx.pl adı ve uzansılı dosya olarak kaydedebiliyormuyuz.

 

[Erdem Akdemir]

Merhaba,

.pl uzantısı excel'de kayıt türü seçeneklerinden biriyle oluyorsa olabilir.
.pl hangi dosya formatında oluşuyor.

 

[Mdemir63]

Selamlar

Sayın KUVARİ hocam
kodlarda belirttiğiniz mail adreslerine gönderiyor.
sadece PDF dosyamı Outlook içerisine atsa mail adreslerini kendim seçip yollamak istiyorum .Böyle birşey olabilir mi?

Saygılar

 

[Erdem Akdemir]

Send'in başına tek tırnak ekleyin.
Benim eklediğim kodda zaten gönderim yapmıyor.
Örnek mail adreslerini silebilirsiniz.

 

[Mdemir63]

Selamlar

Hocam teşekkür ederim.

saygılar

 

[u.L.a.s]

Merhaba,

.pl uzantısı excel'de kayıt türü seçeneklerinden biriyle oluyorsa olabilir.
.pl hangi dosya formatında oluşuyor.

pl uzantısı perl progralama diliyle yazılmış bir programın uzantısıdır.
tabi excelde bu tür uzantıyla kaydetme seçeneği yok. hali hazırdaki kodla pdf yerine pl yazdığım zaman zaten pl olarak kaydetmiyor yine.

ama hani pl uzantıısyla kaydedilme şansı olurmu onu öğrenmek istemiştim.