• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü pdf mail makrosunda hata alıyorum

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

musayksl

Yeni Üye
Katılım
5 Kas 2019
Mesajlar
13
En iyi yanıt
0
Puanları
1
Yaş
35
Konum
müdür
Ad Soyad
musa yüksel
merhaba ,
pfd mail atma makrosunu kendime uyarlamaya çalışıyorum ama 2 yerde hata alıyorum , işin içinden çıkamadım
1. hata , desktop kısmını desktop\SİPARİŞ FORMU diye değiştirdiğim de hata veriyor
2. hata = bu satırda hata veriyor .Attachments.Add Yol & "\" & Dosya_Adi
yardımlarınızı bekliyorum






Kod:
Sub MAIL_GONDER()
    Range("H16") = Range("H16") + 1
    Dim Uygulama As Object
    Dim Yeni_Mail As Object
      
    Yol = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    Dosya_Adi = Range("H16") & " " & Range("C14")

    Range("Print_Area").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=Yol & "\" & Dosya_Adi, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
    Set Uygulama = CreateObject("Outlook.Application")
    Set Yeni_Mail = Uygulama.CreateItem(0)

    With Yeni_Mail
        .Subject = " SİPARİŞ FORMU"
        .Body = "Merhaba," & vbCrLf & vbCrLf & "Ekteki sipariş formunu inceleyip geri dönüş yapmanızı rica ederim." & vbCrLf & vbCrLf & "İyi çalışmalar dilerim."
        .Attachments.Add Yol & "\" & Dosya_Adi
        .Save
        .To = Range("c4")
        .CC = "- ; +"
        .Display
    End With
    
    
    Set Uygulama = Nothing
    Set Yeni_Mail = Nothing
End Sub
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhabalar, bu şekilde deneyin.

C++:
ActiveSheet.ExportAsFixedFormat
C++:
.Attachments.Add Yol & "\" & Dosya_Adi & ".pdf"
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt