Soru MAİL GÖNDERME MAKROSU

M

mathematiqcii

Altın Üye
Katılım
8 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
27-10-2026
Arkadaşlar Merhaba
Outllook üzerinden mail göndermek için bir kod yazmaya çalıştım ancak kod sadece son pdfyi ekliyor ilkini eklemiyor
NErde yanlış yapıyorum ? yardımcı olurmusunuz ?



Kod: 
Sub PDF_KAYDET_MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Set s1 = sheets("İEP BİLGİLERİ")

If s1.Range("NK132").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "ÖN TALEP FORMU" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CI427:CS481").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
End If

If s1.Range("NK133").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "BAŞLANGIÇ" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CU482:DD512").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
End If


Set Uygulama = CreateObject("Outlook.Application")
Set Yeni_Mail = Uygulama.CreateItem(0)
mesaj = "Merhaba Sayın Yetkili" & vbNewLine & _
With Yeni_Mail
On Error Resume Next


.Subject = "İşbaşı Eğitim Programı Evrakları"
.To = s1.Range("b10").Value
.Body = mesaj
.Attachments.Add yol & "\" & isim
.Importance = 2
.display
End With



End Sub
 
P

PLİNT

Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
Merhaba
Aşağıdaki gibi deneyiniz
Kod: 
Sub PDF_KAYDET_MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Set s1 = Sheets("İEP BİLGİLERİ")
Set Uygulama = CreateObject("Outlook.Application")
Set Yeni_Mail = Uygulama.CreateItem(0)
mesaj = "Merhaba Sayın Yetkili" & vbNewLine
With Yeni_Mail
On Error Resume Next
.Subject = "İşbaşı Eğitim Programı Evrakları"
.To = s1.Range("b10").Value
.Body = mesaj
If s1.Range("NK132").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "ÖN TALEP FORMU" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CI427:CS481").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If

If s1.Range("NK133").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "BAŞLANGIÇ" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CU482:DD512").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If
.Importance = 2
.display
End With

End Sub
 
M

mathematiqcii

Altın Üye
Katılım
8 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
27-10-2026
PLİNT' Alıntı:
Merhaba
Aşağıdaki gibi deneyiniz
Kod: 
Sub PDF_KAYDET_MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Set s1 = Sheets("İEP BİLGİLERİ")
Set Uygulama = CreateObject("Outlook.Application")
Set Yeni_Mail = Uygulama.CreateItem(0)
mesaj = "Merhaba Sayın Yetkili" & vbNewLine
With Yeni_Mail
On Error Resume Next
.Subject = "İşbaşı Eğitim Programı Evrakları"
.To = s1.Range("b10").Value
.Body = mesaj
If s1.Range("NK132").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "ÖN TALEP FORMU" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CI427:CS481").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If

If s1.Range("NK133").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "BAŞLANGIÇ" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CU482:DD512").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If
.Importance = 2
.display
End With

End Sub
Genişletmek için tıkla ...
PLİNT' Alıntı:
Merhaba
Aşağıdaki gibi deneyiniz
Kod: 
Sub PDF_KAYDET_MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Set s1 = Sheets("İEP BİLGİLERİ")
Set Uygulama = CreateObject("Outlook.Application")
Set Yeni_Mail = Uygulama.CreateItem(0)
mesaj = "Merhaba Sayın Yetkili" & vbNewLine
With Yeni_Mail
On Error Resume Next
.Subject = "İşbaşı Eğitim Programı Evrakları"
.To = s1.Range("b10").Value
.Body = mesaj
If s1.Range("NK132").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "ÖN TALEP FORMU" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CI427:CS481").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If

If s1.Range("NK133").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "BAŞLANGIÇ" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CU482:DD512").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
.Attachments.Add yol & "\" & isim
End If
.Importance = 2
.display
End With

End Sub
Genişletmek için tıkla ...
Teşekkür ederim üstadım
 
M

mathematiqcii

Altın Üye
Katılım
8 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
27-10-2026
Bir şey daha soracağım OpenAfterPublish:= kısmını bir şarta bağlayabilirmiyiz?
 
P

PLİNT

Katılım
31 Aralık 2014
Mesajlar
1,845
Excel Vers. ve Dili
Excel 2010
mathematiqcii' Alıntı:
Bir şey daha soracağım OpenAfterPublish:= kısmını bir şarta bağlayabilirmiyiz?
Genişletmek için tıkla ...
Merhaba
Aşağıdaki gibi soru mesajıyla olabilir;
Kod: 
Sub PDF_KAYDET_MAIL_GONDER()
Dim Uygulama As Object
Dim Yeni_Mail As Object
Dim sor, cv As Double
Set s1 = Sheets("İEP BİLGİLERİ")
If s1.Range("NK132").Value <> DOĞRU Or s1.Range("NK133").Value <> DOĞRU Then
sor = MsgBox("Pdf ler görüntülensin mi?", vbYesNo)
If sor = vbYes Then cv = True
End If

Set Uygulama = CreateObject("Outlook.Application")
Set Yeni_Mail = Uygulama.CreateItem(0)
mesaj = "Merhaba Sayın Yetkili" & vbNewLine
With Yeni_Mail
On Error Resume Next
.Subject = "İşbaşı Eğitim Programı Evrakları"
.To = s1.Range("b10").Value
.Body = mesaj
If s1.Range("NK132").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "ÖN TALEP FORMU" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CI427:CS481").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=cv
.Attachments.Add yol & "\" & isim
End If

If s1.Range("NK133").Value = DOĞRU Then

Else
yol = ThisWorkbook.Path
               isim = "BAŞLANGIÇ" & Left(s1.Range("NM120"), 7) & ".pdf"
                Range("CU482:DD512").Select
                Selection.ExportAsFixedFormat Type:=xlTypePDF, _
                Filename:=yol & "\" & isim, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                OpenAfterPublish:=cv
.Attachments.Add yol & "\" & isim
End If
.Importance = 2
.display
End With

End Sub
 
M

muyat

Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
Altın Üyelik Bitiş Tarihi
06-01-2024
Konuyla ilgili 2 şey sormak istiyorum
.Importance = 2 anlamı nedir?
Left(s1.Range("NM120"), 7)
left ve 7nin anlamı nedir
 
M

mathematiqcii

Altın Üye
Katılım
8 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
27-10-2026
.Importance = 2 = yüksek önem düzeyi 1 derseniz normal gönderir
Left(s1.Range("NM120"), 7) = nm120 hücresindeki soldan ilk 7 karakteri al demek
 
M

mathematiqcii

Altın Üye
Katılım
8 Şubat 2021
Mesajlar
15
Excel Vers. ve Dili
2016 türkçe
Altın Üyelik Bitiş Tarihi
27-10-2026
MErhaba Hocalarım
Mailin body kısmına jpj uzantılı resim eklemek istiyorum . Aşağıdaki kodu denedim ama olmuyor
Yardımcı olurmusunuz nerde hata yapıyorum ?

If S4.Range("BH1").Value = True Then

For i = 4 To S4.Cells(Rows.Count, "J").End(3).Row
On Error Resume Next
Set Outlook = CreateObject("Outlook.Application")
Set yeni = Outlook.CreateItem(0)
mesaj = S4.Range("P1") & vbNewLine & vbNewLine & _
S4.Range("p3")
Klasor = "C:\Users\ali.koklen\Desktop\otizm"
hmtlyaz = "<img src=" & Klasor

With yeni


.Subject = " 2 Nisan Dünya Otizm Farkındalık Günü -Otiged Proje Açılış Toplantısı "
.To = S4.Range("J" & i)
.HTMLBody = htmlyaz & mesaj
.importance = 2
.display


End With
Set Outlook = Nothing: Set yeni = Nothing:
Next i

MsgBox "Mail Adresi Olan Firmalara bilgilendirme Maili Gönderilmiştir", vbInformation
 
K

Kumpasta

Katılım
28 Nisan 2016
Mesajlar
181
Excel Vers. ve Dili
2010
Altın Üyelik Bitiş Tarihi
06-01-2024
merhaba,
kullandığınız dosyası bizim ile de paylaşabilir misiniz?
Kendi dosyalarıma uyarlamak için kullanabilir miyiz?
 
Korhan Ayhan

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,331
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Linki inceleyiniz.

mail body kısmına resim eklemek

merhabalar, forumda fazlasıyla arama yaptım ancak istediğim gibi bir sonuç elde edemedim. dosyamdaki sayfa1 b2:f35 aralığını mailin body kısmına resim eklemek istiyorum. çok örnek var ama tam olarak bunu bulamadım. burda aynı konu var ama farklı şekilde çözülmüş...
www.excel.web.tr www.excel.web.tr
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst