Outlook toplu mail gönderimi

[bebar]

Merhaba,

Sayfamda mail adreslerine karşılık gelen alanları mail gövdesine ekleyerek toplu mail göndermek istiyorum

Dosyam ektedir. yardımcı olursanız memnun olurum

 

[Korhan Ayhan]

Deneyiniz.

 

[bebar]

Hocam çok teşekkür ederim çok faydası oldu

 

[mkilic]

EXCELL DE 2. SAYFAYI A@GMAİL.COM 3.SAYFAYI B@GMAİL.COM 4. SAYFAYI C@GMAİL.COM YAPMAK İÇİN NE YAPMAM LAZIM. Bİ FİKRİNİZ VAR MI?

 

[Korhan Ayhan]

Forumumuza hoş geldiniz.

İlk olarak forum kurallarına uygun mesajlar yazmanız gerektiğini hatırlatmak isterim. (Lütfen tüm mesajınızı büyük harfle yazmayınız.)

Sonrasında "YAPMAK" ifadenizden mail atmak istediğinizi anladım. Doğru mudur?

 

[PriveT]

Paylaşım için teşekkürler. Belki bir gün bana da lazım olur

 

[mkilic]

Forumumuza hoş geldiniz.

İlk olarak forum kurallarına uygun mesajlar yazmanız gerektiğini hatırlatmak isterim. (Lütfen tüm mesajınızı büyük harfle yazmayınız.)

Sonrasında "YAPMAK" ifadenizden mail atmak istediğinizi anladım. Doğru mudur?

Evet Hocam toplu mail atacam ama her sayfayı farklı kişiye atmam lazım.

 

[Korhan Ayhan]

Sayfanın görüntüsünü mü göndermek istiyorsunuz, yoksa sayfayı dosya olarak kayıt edip dosya eki olarak mı göndermek istiyorsunuz?

 

[mkilic]

Sayfanın görüntüsünü mü göndermek istiyorsunuz, yoksa sayfayı dosya olarak kayıt edip dosya eki olarak mı göndermek istiyorsunuz?

Sayfanın görüntüsünü.

 

[Korhan Ayhan]

Örnek dosya ektedir.

 

[schlecht]

Korhan hocam sadece menü sayfasındaki a1 : f28 arası sayfa görüntüsünü nasıl mail atarız.

 

[Korhan Ayhan]

Örnek dosyanız ektedir.

Mail bilgileri bölümündeki tüm alanları boş geçmeyiniz. Zorunlu alan olarak tanımlanmıştır.

 

[schlecht]

Korhan Bey teşekkürler harika olmuş. CC zorunluluğu nasıl iptal edebilirim. cc bölümü dursun fakat dolu olması zorınlu olmasın

 

[schlecht]

Bir de K4 e yazılan açıklamayı maile eklemiyor sanırım.

 

[Korhan Ayhan]

Modül içindeki aşağıdaki satırları bulup silin.

    If S1.Range("K3") = "" Then
        MsgBox "Lütfen mailin gönderileceği (CC) mail adresini giriniz!", vbCritical
        Exit Sub
    End If

 

[schlecht]

mail gövdesi açıklamayı mail e eklemesi için
.Introduction = S1.Range("K4").Value

yazdım ama olmadı.

 

[Korhan Ayhan]

Üstteki mesajımdaki dosyayı isteğiniz doğrultusunda revize ettim. Tekrar deneyiniz.