- Katılım
- 18 Kasım 2012
- Mesajlar
- 423
- Excel Vers. ve Dili
- Microsoft Office 365
- Altın Üyelik Bitiş Tarihi
- 04-07-2024
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
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