Exceli Mail atma

[gangster54]

arkadaşlar Sayfa 1 e koyduğum butona basıp. sayfa 2 yi pdf formatında mail atmasını istiyorum. ama pcde oluşturduğu pdf dosyasını mail olarak gönderdikten sonra da pcden silmesini istiyorum. yardım eder misiniz? makrodan o kadar anlamıyorum.

 

[gangster54]

http://www.dosya.tc/server38/JG0HC0/Siparis.xls.html

dosya budur.

 

[gangster54]

Sub Makro1()
Sheets("Siparis").Select
ChDir "C:\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Siparis.pd f", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "samet_taser@hotmail.com"
.Subject = "Siparis"
.Body = "Siparis dosyası ekte gönderilmiştir."
.Attachments.Add "C:\Siparis.pd f"
.Save
.Display
End With
Set NewMail = Nothing
Set OutApp = Nothing
MsgBox "Mail Gönderildi."
Kill "C:\Siparis.pd f"
End Sub



HATA VERİYORRRRRR

 

[gangster54]

Yardım lütfen

 

[halit3]

Sorunuzu bir çok defa sormuşsunuz.
Aşağıdaki kod ofis 2007 ve üzeri excel versiyonlarda çalışır.
Ayrıca kurulu outlok gmail hesabınız olması gerekiyor.

kod:

Sub mail_gonder()
Dim Yol As String
Application.DisplayAlerts = False
Yol = "C:\Siparis.pdf"
Sheets("Siparis").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.DisplayAlerts = True

Dim Mail_Dosyası As String
Set mail = CreateObject("Outlook.Application").CreateItem(0)

With mail
.To = "samet_taser@hotmail.com"
.Subject = "Siparis"
.Body = "Siparis dosyası ekte gönderilmiştir."
.Attachments.Add "C:\Siparis.pdf"
.Send
End With
Set mail = Nothing
MsgBox "işlem tamam.", vbApplicationModal, "Bilgilendirme!"
Kill "C:\Siparis.pdf"
End Sub

 

[gangster54]

Ofis 2007 kullanıyorum ve outlook hesabım var ama

Sorunuzu bir çok defa sormuşsunuz.
Aşağıdaki kod ofis 2007 ve üzeri excel versiyonlarda çalışır.
Ayrıca kurulu outlok gmail hesabınız olması gerekiyor.

kod:

Sub mail_gonder()
Dim Yol As String
Application.DisplayAlerts = False
Yol = "C:\Siparis.pdf"
Sheets("Siparis").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Yol, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.DisplayAlerts = True

Dim Mail_Dosyası As String
Set mail = CreateObject("Outlook.Application").CreateItem(0)

With mail
.To = "samet_taser@hotmail.com"
.Subject = "Siparis"
.Body = "Siparis dosyası ekte gönderilmiştir."
.Attachments.Add "C:\Siparis.pdf"
.Send
End With
Set mail = Nothing
MsgBox "işlem tamam.", vbApplicationModal, "Bilgilendirme!"
Kill "C:\Siparis.pdf"
End Sub

 

[gangster54]

halit bey yardımcı olur musunuz lütfen kafayı yemek üzereyim.

Dosya Aşağıda Bir baksanız lütfen yaaa
http://s3.dosya.tc/server31/cNqfP3/Siparis.xls.html

 

[halit3]

halit bey yardımcı olur musunuz lütfen kafayı yemek üzereyim.

Dosya Aşağıda Bir baksanız lütfen yaaa
http://s3.dosya.tc/server31/cNqfP3/Siparis.xls.html

Kod bende çalışıyor.

Kodun çalışması için aşağıdaki linkdeki 1 nolu mesajı okuyun ve 1 nolu mesajdaki linkdeki dosyayı indirip kurun.

http://www.excel.web.tr/f48/pdf-kaydetme-yeri-secme-t89545.html