Mail atan makro

[manyakbiri]

Değerli üstatlar hepinize merhaba,

Yazdığım bir metni cc ve to olmak üzere benim belirleyeceğim adreslere otomatik göndermesini istediğim bir makro yazmak istiyorum. Ek'e de istediğim dosyayı koysun. Örneğin ben masaüstüne Dosyalar isminde bir klasör açayım, onun içindeki excel dosyasını her mailin ekine koysun.

Bunun makrosunun ben zor olduğunu sanmıyorum ama bilgim olmadığı için deneyimli üstatların yardımına ihtiyacım var.

Örneğin resmini paylaştığım exceldeki hücre adreslerine göre bana bir makro yazabilir misiniz ?

Kod kısmı değişken olacak, yazdığım koda göre to ve cc'deki mail adresleri değişecek (vlookup ile).

To ve cc'de birden fazla mail adresi yazmam gerekirse ne yapmam gerekir bu arada?

Gönderilmesini istediğim metin ve mail konusu birleştirilmiş o geniş alan içinde yazıyor olacak. Maili atarken masaüstünde bulunan Dosyalar ismindeki klasörün içindeki ismi xyz olan excel dosyasını eke koyacak. Excelden göndere bastığımda maili atmış olacak.

Yardımlarınız için şimdiden çok teşekkür ederim. Saygılar.

 

[manyakbiri]

Üstatlar merhaba,

Tüm sorularıma cevapları bu siteden buldum.

Excel ile Outlook Üzerinden Toplu Mail - PEAKUP TEKNOLOJİ A.Ş.

Excel & VBA (Makro)'ın gücünü kullanarak kodlarla Excel'den makrolarla Excel ile Outlook üzerinden toplu mail gönderimini sağlayabiirsiniz

peakup.org

Okuyanlara teşekkür ederim. Sorunum çözülmüştür.

 

[manyakbiri]

Aslında tüm sorunlarımı çözmedi.

Mail ekine dosya koyma dışında tüm sorularıma cevapları buldum desem daha doğru olurmuş.

Mail ekine makro ile nasıl dosya koyacağımı sizden öğrenirsem çok sevinirim.

 

[Necdet]

Merhaba,

linkinde bulduğum maili paylaşıyorum. Kendinize uyarlayınız.

Sub SendEmailfromOutlook()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim Path As String
    Path = Application.ActiveWorkbook.Path
    Set OutApp = CreateObject("Outlook.Application")
    
    For Each cell In Range("C7:C11")
        Set OutMail = OutApp.CreateItem(0)
              With OutMail
                .To = cell.Value
                .Subject = Cells(cell.Row, "D").Value
                .Body = "Dear " & Cells(cell.Row, "B").Value & "," _
                      & vbNewLine & vbNewLine & _
                        "Please see your department information as attached to this email. Thank you!"
                .Attachments.Add (Path & "\" & Cells(cell.Row, "D").Value)
                '.Send
                .Save
            End With
    Next cell
    
End Sub

 

[manyakbiri]

Merhaba,

linkinde bulduğum maili paylaşıyorum. Kendinize uyarlayınız.

Sub SendEmailfromOutlook()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim cell As Range
    Dim Path As String
    Path = Application.ActiveWorkbook.Path
    Set OutApp = CreateObject("Outlook.Application")
   
    For Each cell In Range("C7:C11")
        Set OutMail = OutApp.CreateItem(0)
              With OutMail
                .To = cell.Value
                .Subject = Cells(cell.Row, "D").Value
                .Body = "Dear " & Cells(cell.Row, "B").Value & "," _
                      & vbNewLine & vbNewLine & _
                        "Please see your department information as attached to this email. Thank you!"
                .Attachments.Add (Path & "\" & Cells(cell.Row, "D").Value)
                '.Send
                .Save
            End With
    Next cell
   
End Sub

Çok teşekkür ederim Sayın Necdet.

Attachments.Add

kodu ile halledebildim.

 

[aydinsert]

Merhabalar, Üstatlar..
Konuyla ilgili bir soru sormak istiyorum:
Toplu mail gönderimlerde yukarıda da olduğu gibi bir kişiye tek dosya gönderiliyor. Bir kişiye birden fazla dosya göndermek istersek kodu nasıl değiştireceğiz? Desteğiniz için şimdiden teşekkürler.

 

[kardelen79]

peki bu işlem mail değilde telegrama veya whatsap atar mı

 

[ultraslan38080]

peki bu işlem mail değilde telegrama veya whatsap atar mı

+1