birden fazla kişilere ayrı ayrı ve kişiye özel olacak şekilde toplu mail gönderme makrosu

[ridvansahin]

Herkese selamlar öncelikle,

Outlook tan her kişiye ayrı ayrı olacak şekilde yani;

-müşterilerin birbirlerinin email adreslerini görmesine müsaade etmeyen,
-Mesaj içeriği konuya Dear, Sayın Xx Yy şeklinde kişiye özel mesaj başlığıyla başlayabileceğim ve devam eden metin mesajı içeriğinin standart olduğu
-Her müşteriye aynı resim ve dosyaları gönderebileceğim,
-Okundu bilgisi alabileceğim,
-İmza ekleyebileceğim,
-Bilgi kısmına gizli email adresi ekleyip, amirime bu kişilere mesaj gönderildi bilgisini sağlayabileceğim

bir mail gönderme makrosu çok araştırdım ama maalesef bulamadım. Yardımlarınızı bekliyorum.

Şimdiden yeni yılınız kutlu olsun.

 

[apotampkin]

merhaba. konu başlığına yardımcı olabilecek var mı ? şuan ihtiyacım olan şey tam da bu. yardımlarınız için teşekkür ederim.

 

[cems]

Outlook'ta istediğiniz özelliklere sahip bir e-posta göndermek için aşağıdaki adımları takip edebilir ve VBA (Visual Basic for Applications) kullanarak bir makro oluşturabilirsiniz. Bu makro, her müşteri için ayrı ayrı e-postalar gönderir, alıcıların birbirlerinin e-posta adreslerini görmemesini sağlar ve diğer belirttiğiniz özellikleri destekler. İşte temel bir örnek makro:

1. Outlook VBA Editörünü Açın:
   • Outlook’u açın.
   • Alt + F11 tuşlarına basarak VBA editörünü açın.
2. Yeni Bir Modül Ekleyin:
   • Insert menüsünden Module seçeneğine tıklayarak yeni bir modül ekleyin.
3. Aşağıdaki VBA Kodunu Yapıştırın:

Sub SendPersonalizedEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim signature As String
Dim subject As String
Dim body As String
Dim attachmentPath As String
Dim hiddenCcEmail As String

' Outlook uygulamasını oluştur
Set OutApp = CreateObject("Outlook.Application")

' Çalışma sayfanızın adını girin
Set ws = ThisWorkbook.Sheets("Sheet1")

' E-posta imzanızı buraya yapıştırın
signature = "Saygılarımla," & vbCrLf & "Adınız"

' Mesajın konusunu ve gövdesini tanımlayın
subject = "Önemli Bilgi"
body = "Merhaba, " & vbCrLf & vbCrLf & _
"Bu standart mesaj içeriğidir." & vbCrLf & vbCrLf & _
"Lütfen ekteki dosyayı kontrol ediniz." & vbCrLf & vbCrLf & _
signature

' Ekteki dosyanın yolunu girin
attachmentPath = "C:\Path\To\Your\Attachment.jpg"

' Gizli CC e-posta adresi
hiddenCcEmail = "amiriniz@example.com"

' Alıcılar listesini seçin (A sütununda e-posta adresleri)
Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

For Each cell In rng
If cell.Value <> "" Then
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cell.Value
.Subject = subject
.Body = body
.Attachments.Add attachmentPath
.BCC = hiddenCcEmail
.ReadReceiptRequested = True
.Send
End With
Set OutMail = Nothing
End If
Next cell

' Outlook uygulamasını kapat
Set OutApp = Nothing

MsgBox "E-postalar başarıyla gönderildi!", vurbInformation
End Sub

1. Kodda Yapmanız Gereken Düzenlemeler:
   • Sheet1 yerine e-posta adreslerinin bulunduğu çalışma sayfasının adını yazın.
   • signature değişkeninde imzanızı ekleyin.
   • attachmentPath değişkeninde göndermek istediğiniz dosyanın yolunu belirtin.
   • hiddenCcEmail değişkeninde amirinizin e-posta adresini girin.
2. Makroyu Çalıştırın:
   • F5 tuşuna basarak makroyu çalıştırın.

Bu makro, belirttiğiniz her e-posta adresine kişiselleştirilmiş mesajlar gönderecek ve aynı zamanda gizli CC e-posta adresine amirinize bilgi verecektir. Ayrıca, okundu bilgisi alacak şekilde ayarlanmıştır ve belirttiğiniz dosyayı ekleyecektir.
Bu kod, Outlook’un bazı güvenlik ayarlarına bağlı olarak çalışmayabilir veya ilk kez çalıştırırken onay gerektirebilir. Güvenlik ayarlarınıza dikkat edin ve gerekirse Outlook ayarlarınızı gözden geçirin

Once iç maillerinizde deneyin sonuçtan emin urnnolursanız dış mailleri kullanın
Aklınızda olsun , alındı ve okundu returnları maili alanda bir seçenektir, hayır seçerse okundu alındı gelmez evet seçerse gelir.

 

[apotampkin]

Outlook'ta istediğiniz özelliklere sahip bir e-posta göndermek için aşağıdaki adımları takip edebilir ve VBA (Visual Basic for Applications) kullanarak bir makro oluşturabilirsiniz. Bu makro, her müşteri için ayrı ayrı e-postalar gönderir, alıcıların birbirlerinin e-posta adreslerini görmemesini sağlar ve diğer belirttiğiniz özellikleri destekler. İşte temel bir örnek makro:

1. Outlook VBA Editörünü Açın:
   • Outlook’u açın.
   • Alt + F11 tuşlarına basarak VBA editörünü açın.
2. Yeni Bir Modül Ekleyin:
   • Insert menüsünden Module seçeneğine tıklayarak yeni bir modül ekleyin.
3. Aşağıdaki VBA Kodunu Yapıştırın:

Sub SendPersonalizedEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim signature As String
Dim subject As String
Dim body As String
Dim attachmentPath As String
Dim hiddenCcEmail As String

' Outlook uygulamasını oluştur
Set OutApp = CreateObject("Outlook.Application")

' Çalışma sayfanızın adını girin
Set ws = ThisWorkbook.Sheets("Sheet1")

' E-posta imzanızı buraya yapıştırın
signature = "Saygılarımla," & vbCrLf & "Adınız"

' Mesajın konusunu ve gövdesini tanımlayın
subject = "Önemli Bilgi"
body = "Merhaba, " & vbCrLf & vbCrLf & _
"Bu standart mesaj içeriğidir." & vbCrLf & vbCrLf & _
"Lütfen ekteki dosyayı kontrol ediniz." & vbCrLf & vbCrLf & _
signature

' Ekteki dosyanın yolunu girin
attachmentPath = "C:\Path\To\Your\Attachment.jpg"

' Gizli CC e-posta adresi
hiddenCcEmail = "amiriniz@example.com"

' Alıcılar listesini seçin (A sütununda e-posta adresleri)
Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

For Each cell In rng
If cell.Value <> "" Then
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cell.Value
.Subject = subject
.Body = body
.Attachments.Add attachmentPath
.BCC = hiddenCcEmail
.ReadReceiptRequested = True
.Send
End With
Set OutMail = Nothing
End If
Next cell

' Outlook uygulamasını kapat
Set OutApp = Nothing

MsgBox "E-postalar başarıyla gönderildi!", vurbInformation
End Sub

1. Kodda Yapmanız Gereken Düzenlemeler:
   • Sheet1 yerine e-posta adreslerinin bulunduğu çalışma sayfasının adını yazın.
   • signature değişkeninde imzanızı ekleyin.
   • attachmentPath değişkeninde göndermek istediğiniz dosyanın yolunu belirtin.
   • hiddenCcEmail değişkeninde amirinizin e-posta adresini girin.
2. Makroyu Çalıştırın:
   • F5 tuşuna basarak makroyu çalıştırın.

Bu makro, belirttiğiniz her e-posta adresine kişiselleştirilmiş mesajlar gönderecek ve aynı zamanda gizli CC e-posta adresine amirinize bilgi verecektir. Ayrıca, okundu bilgisi alacak şekilde ayarlanmıştır ve belirttiğiniz dosyayı ekleyecektir.
Bu kod, Outlook’un bazı güvenlik ayarlarına bağlı olarak çalışmayabilir veya ilk kez çalıştırırken onay gerektirebilir. Güvenlik ayarlarınıza dikkat edin ve gerekirse Outlook ayarlarınızı gözden geçirin

Once iç maillerinizde deneyin sonuçtan emin urnnolursanız dış mailleri kullanın
Aklınızda olsun , alındı ve okundu returnları maili alanda bir seçenektir, hayır seçerse okundu alındı gelmez evet seçerse gelir.

gerçekten çok teşekkür ederim. elinize sağlık.