Alıntıdır
Sorunun Özeti:
- Outlook'ta tanımlı grup (paylaşımlı) bir e-posta adresi var.
- Bu grup adresinin şifresi/parolası yok, yani ayrı bir kullanıcı hesabı olarak girilmiyor.
- E-posta gönderirken bu grup adresini "Gönderen" (From) olarak kullanmak istiyorsun.
- Ancak, "Alıcıları Seç (Select Recipients)" → "Choose from Outlook Contacts" kısmında grup adresini seçince, veri kayboluyor.
Çözüm ve Öneriler
1. 
Grup Maili ile Gönderebilmek İçin Yetki Olmalı
Grup mailinden gönderim yapabilmek için senin hesabına
"bu adresten gönderme (Send As)" veya
"adına gönderme (Send on behalf of)" yetkisi verilmiş olmalı.
Bunu IT departmanı ya da Outlook yöneticin şu şekilde yapabilir:
- Exchange yönetimi üzerinden grup adresine sağ tık → Permission → senin hesabına Send As yetkisi verilir.
Eğer bu yetki yoksa, "Kimden" kısmında adresi girsen bile gönderemezsin, Outlook uyarı verir.
2. 
Mail Merge (Word üzerinden e-posta birleştirme) kullanırken gönderen adresi değiştirmek
Mail Merge, varsayılan olarak
Outlook’ta o an aktif olan hesabı kullanır. Outlook’un içinde hangi hesap aktifse, gönderici olarak o kullanılır.
Alternatif Çözüm:
- Outlook’ta grup mail adresini varsayılan olarak ayarla (Geçici olarak).
- Ya da mail gönderimini VBA (Makro) üzerinden yap, çünkü orada gönderen adresini kodla belirleyebilirsin.
Ekstra: Outlook VBA ile Belirli Gönderici Adresinden Mail Göndermek
Eğer yetkin varsa bu VBA kodu işe yarayabilir:
vba
KopyalaDüzenle
Sub GonderGrupAdresiIle()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = "
alici@ornek.com"
.Subject = "Excel'den gelen veriler"
.Body = "İşte Excel'den gelen içerik buraya gelecek."
.SentOnBehalfOfName = "
grupadres@firma.com" ' Grup adresini buraya yaz
.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bu kodun çalışması için Outlook hesabınızın bu grup adresi adına gönderme yetkisine sahip olması gerekir.
Sonuç:
- Grup mailinden mail göndermek istiyorsan Outlook’ta yetkilendirme gerekiyor.
- Word/Excel Mail Merge doğrudan gönderen adresini değiştirmez.
- Verilerin kaybolması ise Mail Merge sürecinde Outlook bağlantısı tazelenirken oluyor olabilir.
İstersen bu süreci VBA ile otomatik hale getirebiliriz veya mevcut mail şablonunu adım adım optimize edebiliriz. Yardımcı olmaktan mutluluk duyarım.
Örnek excel dosyası,
Excel Dosyası: "MailListesi.xlsx"
Sayfa Adı: Veri
| A Sütunu (A) | B Sütunu (B) | C Sütunu (C) | D Sütunu (D) |
|---|
| Ad | E-posta | Konu | Mesaj |
| Ayşe Yılmaz | ayse@... | Bilgilendirme | Merhaba Ayşe... |
| Ahmet Kaya | ahmet@... | Duyuru | Sayın Ahmet... |
| Elif Demir | elif@... | Toplantı | Elif Hanım... |
Bu tablo şu amaçla kullanılır:
- Her satırda bir kişiye ait e-posta içeriği bulunur.
- Mail merge ya da VBA ile gönderim yapılırken kişisel içerik sunar.
Gönderim için VBA Planı (Grup Mailinden)
Ayrıca istersen, aşağıdaki yapıya uygun bir VBA kodu ile:
- Gönderici olarak grup adresi kullanabilirsin.
- Her kişiye özelleştirilmiş konu ve mesaj ile gönderebilirsin.
Kod yapısı için şöyle bir şey uygundur:
Sub GrupMailGonder()
Dim OutApp As Object, OutMail As Object
Dim i As Integer
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Veri")
Set OutApp = CreateObject("Outlook.Application")
For i = 2 To sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sh.Cells(i, 2).Value
.Subject = sh.Cells(i, 3).Value
.Body = sh.Cells(i, 4).Value
.SentOnBehalfOfName = "
grupadres@firma.com"
.Send
End With
Next i
MsgBox "Mailler gönderildi."
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Hazırlık Aşamaları:
- Excel dosyasını bu yapıda hazırla.
- Outlook’ta grup adresi adına mail gönderebildiğinden emin ol.
- Dilersen bu dosya için Word tarafında mail şablonu da oluşturabilirsin.
- VBA ile otomasyonu sağlamak istiyorsan dosyan .xlsm formatında olmalı.
Adım adım excel üzerinde kurulumu;
1. Adım: Excel Dosyası Yapısı
Sayfa Adı: Veri (böyle adlandır)
| Hücre | İçerik (Açıklama) |
|---|
| A1 | Ad |
| B1 | E-posta |
| C1 | Konu |
| D1 | Mesaj |
| A2 | Ayşe Yılmaz |
| B2 | ayse@ornek.com |
| C2 | Bilgilendirme |
| D2 | Merhaba Ayşe Hanım, ... |
| A3 | Ahmet Kaya |
| B3 | ahmet@ornek.com |
| C3 | Toplantı Duyurusu |
| D3 | Sayın Ahmet Bey, ... |
Daha fazla kişi için satır ekleyebilirsin.
2. Adım: Excel Dosyasını Makro Etkin olarak kaydet
Dosya > Farklı Kaydet > Excel Makro Etkin Çalışma Kitabı (.xlsm)
3. Adım: VBA Kodu Ekle
- Alt + F11 tuşuna basarak VBA editörünü aç.
- Sol tarafta proje penceresinde (VBAProject > ThisWorkbook’a sağ tık) → Insert > Module tıkla.
- Aşağıdaki kodu yapıştır:
Sub GrupMailGonder()
Dim OutApp As Object, OutMail As Object
Dim i As Long
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Veri")
On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
End If
On Error GoTo 0
For i = 2 To sh.Cells(sh.Rows.Count, "A").End(xlUp).Row
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = sh.Cells(i, 2).Value
.Subject = sh.Cells(i, 3).Value
.Body = sh.Cells(i, 4).Value
.SentOnBehalfOfName = "
grupadres@firma.com" ' Burayı kendi grup adresinle değiştir
.Send
End With
Set OutMail = Nothing
Next i
MsgBox "Tüm mailler gönderildi.", vbInformation
End Sub
grupadres@firma.com kısmına sizin Outlook'ta tanımlı olan
grup e-posta adresinizi yazmayı unutma.
4. Adım: Makroyu Çalıştır
- Excel’e geri dön.
- Alt + F8 tuşuna bas → GrupMailGonder makrosunu seç → Çalıştır (Run) butonuna tıkla.
Her şey yolundaysa, e-postalar tek tek gönderilecek ve sonunda "Tüm mailler gönderildi" mesajı çıkacak.
