Excelden ekli mail gönderme

Excel ile MS Outlook, Outlook Express, Gmail vb. programlar ile mail işlemleri hakkındaki bölüm.

Excelden ekli mail gönderme

İleti#1)  m.polat » 28 Eyl 2018 11:26

Merhaba

Excelde aşağıdaki vb kodu ile çalıştığım dosyayı pdf formatına çevirdim. Başkabir kod ile bu pdf dosyasını yine exceldeki bir buton ile ekli dosya olarak C5 hücresinde yazan mail adresine mail atmak istiyorum. Mailatma işlemini yapanbir kod buldum. kod aşağıdaki gibi. Ama bu kod çalışmakta olduğum excel dosyasını kod içerisinde yazan mail adresine gönderiyor. Bu kodu benim istediğim şekidle çevirmemiz gerekiyor. Yardımlarınızı rica ederim.

PDF OLUŞTURMA KODU.......
Sub mutabakat_olustur()
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="\\mqsrv\home$\u4012294\HR\İZİN MUTABAKATLARI-2018\MUTABAKATLAR\" & [c5].Value & "_" & [c6].Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub

MAİL GÖNDERME KODU....
Sub mutabakat_olustur()
With ActiveSheet
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:="\\mqsrv\home$\u4012294\HR\İZİN MUTABAKATLARI-2018\MUTABAKATLAR\" & [c5].Value & "_" & [c6].Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Kullanıcı avatarı
m.polat
 
Kayıt: 28 Eyl 2018 10:44
Meslek: İK Aistanı
Yaş: 42
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Excelden ekli mail gönderme

İleti#2)  rastbin » 28 Eyl 2018 12:27

Kod: Tümünü seç
Sub Email_CurrentWorkBook()
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = Range("c5").Value
.CC = ""
.BCC = ""
.Subject = "Örnek"
.Body = "örnektir"
.Attachments.Add ("C:\Users\xxxxxx\Desktop\deneme.pdf")
.Send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub



attachments.add koduna göndermek istediğiniz pdf dosyasının yolunu yazın.
Kullanıcı avatarı
rastbin
Yeni Başlamış
 
Kayıt: 13 Ağu 2018 10:31
Meslek: Bilgi Teknolojileri Uzmanı
Yaş: 25
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excelden ekli mail gönderme

İleti#3)  m.polat » 28 Eyl 2018 15:13

@rastbim
Bilgi için teşekkür ederim. İlettiğin kodları elimdeki kodlarla birleştirerek aşağıdaki şekilde yazıp isteğimi elde ettim. Hücrelerden bilgi alarak pdf formatında kaydettiğim formu aynı yolu izleyerek mail gönderttim.

Yardımın için tekrar teşekkür ederim.

Sub Mail()
'Gönderilecek e-mail bilgilerini değiştirmeyi unutmayın...
Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
On Error Resume Next
With Mail
.To = Range("c8").Value
.Subject = "2018 İzin Mutabakatı"
.Body = Range("d18").Value
.Attachments.Add ("\\mqsrv\home$\u4012294\HR\İZİN MUTABAKATLARI-2018\MUTABAKATLAR\" & [c5].Value & "_" & [c6].Value & ".pdf")
.send
End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End Sub
Kullanıcı avatarı
m.polat
 
Kayıt: 28 Eyl 2018 10:44
Meslek: İK Aistanı
Yaş: 42
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL


Forum Excel ile Mail İşlemleri

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe