musayksl
Yeni Üye
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
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