Excel'de satır bazında mail göndermek

Microsoft Office

Son Cevaplar gön: soner koca 12 yıl önce

4 Yazılar

3 Üyeler

0 Reactions

2,225 Görüntüleme

RSS

Can Bolat

(@canbolat)

Gönderiler: 1253

Noble Member

Konu başlatıcı

Merhaba ,

1   101000767 1200 todo-kurulumlar  kontrol et           M101    1010100001               [email protected]
2    101000084 1200 todo-sertifikasyon eskik             M101     1010100001                [email protected]
3    198000263 1200 todo-checklist   günlük k.           M198     1200101001                  [email protected]
4   198000226 1200 todo-monitoring testi                  M198     1200101001                [email protected]
.
.
.

Yukarıda excel tablosundaki satırları karşısına denk gelen mail adresi ile eşleştrip göndermek istiyorum.Word üzerinde adres ve mektup birleştirme var fakat excel'deki veri çok olduğu için word'e atınca bozuluyor.

Excel satır bazında sadece o satırdaki verileri o satırda bulunan mail adresine gönderebilecek şekilde düzenleyebilir miyiz ? bu şekilde 1000'e yakın satır ve mail adresi bulunmakta.

1 101000767 1200 todo-kurulumlar kontrol et M101 1010100001 [email protected] 1.satırdaki veriler bu mail adresine.

4 198000226 1200 todo-monitoring testi M198 1200101001 [email protected] 4.satırdaki veriler bu mail adresine

şeklinde.

Teşekkürler.
.

Gönderildi : 24/07/2012 19:36

ayhanarici

(@ayhanarici)

Gönderiler: 38

Trusted Member

Merhabalar

Makro yazarak bunu yapmak mümkün Örneğin;

Sub Gonder ()
Dim OutlookUygulama As Object
Dim Mail As Object

Set OutlookUygulama= New Outlook.Application
Set Mail= OutlookUygulama.CreateItem(0)

    With Mail
        .To = "[email protected]" 'Siz buraya dongu kurup exceldeki mailleri eklersiniz.
        .CC = "İsteğe bağlı"
        .BCC = "İsteğe bağlı"
        .Subject = "Konu"
        .Body = "Mesaj"
        .Attachments.Add ("C:\Dosya.txt")
        .Send
    End With

Set Mail= Nothing
Set OutlookUygulama= Nothing
End Sub

Not: Bu kodun çalışabilmesi için Tools/Reference bölümünden Microsoft Outlook XX.X Object Library seçeneğinin onaylı olması gerekmektedir.

İyi çalışmalar

Gönderildi : 26/07/2012 16:40

Can Bolat

(@canbolat)

Gönderiler: 1253

Noble Member

Konu başlatıcı

Merhaba ,

ekli dosyayı birden fazla mail adresi göndermek değil , excel dosyası içindeki her satırın karşısına denk gelen mail adresine o satırı iletmek istiyorum.Bu makro ile bunu yapabiliyor muyuz bi örnek gösterebilir misiniz 1.satırda diyelim testler yazıyo hemen yanında mail adresi [email protected] 2.satırda başka bir metin yazıyo hemen yanında [email protected] direk olarak satırla mail adresini eşleştirip gönderebilmem mümkün mü ?

Gönderildi : 26/07/2012 19:21

soner koca

(@sonerkoca)

Gönderiler: 194

Reputable Member

Sub Gonder ()
Dim OutlookUygulama As Object
Dim Mail As Object

Set OutlookUygulama= New Outlook.Application
Set Mail= OutlookUygulama.CreateItem(0)
for i=1 to 60 ' satir sayisi
With Mail
.To = range ( "b" & i )
.Body = range ("a" & i )
.Send
End With
next
Set Mail= Nothing
Set OutlookUygulama= Nothing
End Sub