Makro İle Dosyayı .xlsx Formatında Outlook a Atmak

[fledermaus]

Herkese Merhaba,

Aşağıdaki makro AX14,AX18 ve AX21 hücrelerinde yazılan açıklamalara göre sayfayı Outlook a pdf olarak atarak gönderime hazır bir şekilde yeni bir mail açıyor.

Benim burada yapmak istediğim sadece ilgili sayfayı .pdf formatında değilde .xlsx formatında atmak.

Buna göre ilgili kodlarda nasıl bir revizyona gitmem yada değiştirmem gerekir ?

Yardımlarınız için şimdiden tşk ederim.

Syg,

Açıklamalar;
AX14 Mail Konusu
AX18 Gönderilen Dosyanın (.PDF) Konusu
AX21 Maile yazılacak yazı


Sub MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object

If Range("AX18") = "" Then
MsgBox "Lütfen dosya adını yazınız!", vbCritical
Exit Sub
End If

Yol = ThisWorkbook.Path
Dosya_Adi = Range("AX18") & ".pdf"

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 = Range("AX14")
.Body = Range("AX21")
.Attachments.Add Yol & "\" & Dosya_Adi
.SAVE
If Range("AX10") = "" Then
.To = ""
.Display
Else
.To = Range("DN17")
.Send
MsgBox "Mail gönderildi."
End If
End With

Set Uygulama = Nothing
Set Yeni_Mail = Nothing
End Sub

 

[Korhan Ayhan]

Merhaba,

Forumda bolca işlenen bir konudur.

Arama Sonuçları