Excel mail'i PDF olarak atma

[muratgunay48]

Arkadaşlar, hocalarımız. Ben iş yerinde çok sayıda mail atıyorum. Excel yapacağım. Her sayfasına atacağım mail'i hazırlayacağım. (zaten her mail 1 A4 sadece)
Benim mail adresim muratgunay@..........com yani şirket maili. Mailler benim mailimden atılmış gibi gidecek. Ben sayfaları hazırlayıp (linkler falan, resimler). Mesela Sayfa1 şu adrese, Sayfa2 şu adrese. Sayfa3 şu adrese. Tek tıkla, adreslere PDF'e dönüştürüp atacak.
Eğer mümkün olursa benim için mükemmel olacak. Şu an için PDF'e dönüştürüp OUTLOOK ile mail atıyorum.
Saygılarımla.

 

[Korhan Ayhan]

Google arama kutusuna aşağıdaki ifadeyi yazıp arama yaparsanız birçok benzer konuya erişebilirsiniz.

pdf+mail excel.web.tr

 

[muratgunay48]

Google arama kutusuna aşağıdaki ifadeyi yazıp arama yaparsanız birçok benzer konuya erişebilirsiniz.

pdf+mail excel.web.tr

Arayacağım hocam. Neticeyi bildiririm.
Teşekkürler.

 

[muratgunay48]

@Korhan Ayhan hocam. Arattırdım, hatta bir kaç sonuca ulaştım ama benim istediğim biraz daha farklı, isterseniz örnek dosya üzerinden bakarsanız. Size zahmet hocam. Şimdiden teşekkür ederim.
Saygılarımla.

 

[Emir Hüseyin Çoban]

.

Tüm mailleri tek seferdemi göndermek istersiniz yoksa
herkesin kendi sayfasındayken gönder komutumu verirsiniz.

.

 

[muratgunay48]

.

Tüm mailleri tek seferdemi göndermek istersiniz yoksa
herkesin kendi sayfasındayken gönder komutumu verirsiniz.

.

Hocam, siz sorana kadar aklımda öyle bir şey yoktu. Zira ben manuel gönderdiğim için, o gün olura bir aboneye mail gitmeyecekse göndermiyorum. Ama pratik olan tek sefer değil mi.
Gitmediği çok nadir oluyor zaten. Mail listesi sayfası sabit zaten, mail ekleme ve çıkarma için. Abone ekleme çıkarma için. Oradaki abonenin mail adreslerini, mail giderken silsem işe yarar sanırım.

 

[Emir Hüseyin Çoban]

.

Şimdilik her sayfa için manuel yapalım.
Toplu gönderim için gerekirse döngüye alarak yine yaparız.

.

 

[muratgunay48]

.

Şimdilik her sayfa için manuel yapalım.
Toplu gönderim için gerekirse döngüye alarak yine yaparız.

.

Hocam, siz daha iyi bilirsiniz. Yalnız ben abone ve aboneye mail ekleme yapabilecek miyim. Bunlar 2 güne bir mail değiştirir 2 güne bir sizi rahatsız etmeyeyim.

 

[Emir Hüseyin Çoban]

.

Aşağıdaki kodları abonelerin sayfasındayken çalıştırarak test edin.

Sayfa isimleri ile mail listesi sayfası 1.satırdaki isimler aynı olmalı. (büyük/küçük harf dahil)
Masaüstünde PDF klasörü oluşturun.

Sub KOD()

    Dim S1 As Worksheet: Set S1 = Sheets("Mail listesi")
    sayfaad = ActiveSheet.Name
    dosyaad = sayfaad & "_" & Format(Now, "ddmmyyyy_hhmmss") & ".pdf"
    dosyayolu = CreateObject("WScript.Shell").specialfolders("Desktop") & "\PDF\" & dosyaad
    mailadresi = ""
   
    For a = 1 To S1.Cells(1, Columns.Count).End(1).Column
    If S1.Cells(1, a) = sayfaad Then
    For b = 2 To S1.Cells(Rows.Count, a).End(3).Row
    mailadresi = S1.Cells(b, a).Value & ";" & mailadresi
    Next b
    Exit For
    End If
    Next a
       
    If mailadresi = "" or mailadresi = ";" Then
    MsgBox "Mail Adresi Bulunamadı" & Chr(10) & "İptal", vbCritical
    Exit Sub
    End If
       
    Sheets(sayfaad).ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=dosyayolu _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
       
    Dim xlOutlook   As Object
    Dim xlMail      As Object
    Set xlOutlook = CreateObject("Outlook.Application")
    Set xlMail = xlOutlook.CreateItem(0)

    With xlMail
        .To = mailadresi
        .CC = ""
        .Subject = "Konu"
        .Body = "Mesaj"
        .Attachments.Add dosyayolu
        .Save
        .Send
    End With
   
    Set xlMail = Nothing
    Set xlOutlook = Nothing
   
    Kill dosyayolu

    MsgBox sayfaad & Chr(10) & "Mail gönderildi", vbInformation

End Sub

.

 

[muratgunay48]

@Emir Hüseyin Çoban hocam, şimdi bu kodu "BU ÇALIŞMA KİTABI" yapıştırıyorum.
Muhtemelen ben yapamadım. Çalıştır diyeceğim, kodu görmüyor.

 

[Emir Hüseyin Çoban]

.

Yeni module ekleyip, içine yapıştırın.

.

 

[muratgunay48]

x 400 diye hata alıyorum hocam.

 

[Emir Hüseyin Çoban]

.

Kodları uygulayıp, hata aldığınız dosyayı yüklerseniz. İncelerim.

.

 

[muratgunay48]

2 dakikaya gönderiyorum hocam. Bilgisayar yeniden başlattı.

 

[muratgunay48]

.

Kodları uygulayıp, hata aldığınız dosyayı yüklerseniz. İncelerim.

.

Yalnız hocam, ben masaüstüne PDF açmadım sanırım. Boş bir PDF'mi.

 

[Emir Hüseyin Çoban]

.

PDF adında klasör oluşturmalısınız.

.

 

[muratgunay48]

.

PDF adında klasör oluşturmalısınız.

.

PDF adında boş bir dosya oluşturdum. Sayfadayken kod çalıştır diyorum. Şöyle bir hata veriyor.

 

[Emir Hüseyin Çoban]

.

Aşağıdaki makro güvenlik ayarlarını da yapmalısınız.



.

 

[muratgunay48]

.

Aşağıdaki makro güvenlik ayarlarını da yapmalısınız.

Ekli dosyayı görüntüle 222462

.

Hocam böyle zaten.

 

[muratgunay48]

@Emir Hüseyin Çoban hocam. Akşam zamanı vaktinizi almayayım.
Teşekkür ederim ilginize. Bir çözüm bulunacağından eminim.
Tekrar teşekkür ederim.