Aynı yazıyı farklı kişilere hitaben nasıl gönderirim?

[mirefe]

Arkadaşlar,
Ben bir metinimiz var.4-5 günde bu metin gibi farklı başka metinleri 200 farklı kişiye gönderiyorum.
Her seferinde gönderdiğim kişiye hitaben Sayın Adı soyadı; diyerek metni gönderiyorum.Bu işlemi her mail gönderdiğim isime tektek yeni mail oluşturarak yapıyorum.
Bunun yerine A sutununda ad soyad, B sutununda mail adresi c sutununda göndereceğim mmetin olsa, sadece bir kişinin mailine tıklayarak maili kişiye hitaben gönderebilirmyim?
Yardımlarınıza şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Ekte bir dosya hazırladım. A sütunundaki isme çift tıkladığınızda istediğiniz bilgiler outlook programında ilgili yerlere aktarılacaktır. Yazılan kodu görmek için sayfa1'in kod sayfasına bakabilirsiniz.

 

[mirefe]

Levent bey,
Gerçekten güzel hazırlamışsınız. İstediğim aynen budur. Ancak listemde 200-250 kişi var bunları ekleyince kod bozulacakmıdır?
Birde Gönderilecek 25-30 kelimeden oluşuyor.Bu durumda ekleme yapılınca dosya bozulur mu?
Teşekkür ederim.

 

[Levent Menteşoğlu]

A sütununa istediğiniz kadar isim ekleyebilirsiniz. Kelime sayısının dosya büyüklüğünü arttırması dışında bir sorun oluşturacağını düşünmüyorum.

 

[mirefe]

Teşekkür ederim.Sorunumu sayenizde çözmüş oldum.

 

[mirefe]

Levent bey,
Bu dosyaya word,pdf belgesi eklemeyi nasıl yaparız? Birde gönderen imzası atmak istiyorum mailin sonuna.Yardımlarınız için teşekkür ederim.

 

[mirefe]

Yukarıdaki verileri gönderirken ekinde pdf dosyası eklemem gerekiyor.Bu konuda yardım lütfen.

 

[mirefe]

Güncel konudur.

 

[Levent Menteşoğlu]

Eklediğim dosyadaki koda aşağıdaki kırmız renkli satırı ekleyin. Dosya yolunu ve tipini kendinize göre değiştirebilirsiniz. İmza derken kasdettiğinizide biraz daha açarmısınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cancel = True
Set nesne = CreateObject("Outlook.Application")
nesne.Session.Logon
Set eposta = nesne.CreateItem(0)
    With eposta
        .To = Target.Next
        .CC = ""
        .BCC = ""
        .Subject = "Buraya konu başlığını yazın."
        .Body = "Sn " & Target & Chr(10) & Chr(10) & Target.Next.Next
        [B][COLOR=red].Attachments.Add ("C:\deneme.xls")[/COLOR][/B]
        .Display
     End With
On Error GoTo 0
End Sub

 

[mirefe]

Levent bey,
İginize teşekkür ederim.
Gönderim yapanın adı soyadı yada şirket adı altına adres telefon numarası gibi verileride eklemek istemiştim.Maillerde sağ yada sol alta bu bilgileride eklemek istiyordum.

 

[Levent Menteşoğlu]

Yanındaki bir hücreyede imza bilgilerini yazarsanız kod içindeki .body kısmında bu bilgide yazdırılabilir.

 

[u.L.a.s]

Levent Bey Merhaba,

Verdiğinzi bilgiler için çok teşekkürler. Ben Office 2007 İngilizce kullanıyorum. ilk mesajınızdaki dosyadaki macro kodlarını bir türlü göremiyorum. 2. yazdığınız kodu ise wiev macrodan girip yeni bir makro oluşturup kopayala yapıştır diyorum. ama hiç bir sonuç alamaıyorum. bir yerde eksik birşey yapıyorum ama nedir çözemedim. Yardımcı olmanızı rica ederim

 

[Levent Menteşoğlu]

Levent Bey Merhaba,

Verdiğinzi bilgiler için çok teşekkürler. Ben Office 2007 İngilizce kullanıyorum. ilk mesajınızdaki dosyadaki macro kodlarını bir türlü göremiyorum. 2. yazdığınız kodu ise wiev macrodan girip yeni bir makro oluşturup kopayala yapıştır diyorum. ama hiç bir sonuç alamaıyorum. bir yerde eksik birşey yapıyorum ama nedir çözemedim. Yardımcı olmanızı rica ederim

Eklediğim dosyadaki sayfa1 sekmesi üzerinde sağ klik yapın ve "kod görüntüle" yazısını tıklayın.

 

[mirefe]

Levent bey merhaba,
.body = 'den sonra yazılacak olan "signature" nasıl olacak.
Gönderilen metinden sonra aşağıda imza eklemek istiyorum.

 

[thecarow]

Hocam;
cc'ye nasıl mail adresi ekleyebiliriz ve sadece C sütununa değilde tüm sayfaya yazdıklarımızı nasıl mail alanı içerisine ekleyebiliriz

 

[u.L.a.s]

Çok Teşekkürler Levent Bey

 

[Levent Menteşoğlu]

Levent bey merhaba,
.body = 'den sonra yazılacak olan "signature" nasıl olacak.
Gönderilen metinden sonra aşağıda imza eklemek istiyorum.

Örneğin D sütununada imza bilgilerini yazın ve kod içindeki aşağıdaki satıra kırmızı renkli ilaveleri yapın.

.Body = "Sn " & Target & Chr(10) & Chr(10) & Target.Next.Next [B][COLOR=red]& [/COLOR][/B]
[B][COLOR=red]Chr(10) & Chr(10) & Target.Next.Next.next[/COLOR][/B]

Hocam;
cc'ye nasıl mail adresi ekleyebiliriz ve sadece C sütununa değilde tüm sayfaya yazdıklarımızı nasıl mail alanı içerisine ekleyebiliriz

Kod içindeki aşağıdaki satıra mail adresi ekleyebilirsiniz.

.CC = "[COLOR=red][B]leventm@excel.web.tr[/B][/COLOR]"

Çok Teşekkürler Levent Bey

Rica ederim.

 

[mirefe]

Teşekkür ederim Levent bey,

Yukarıdaki verileri gönderirken ekinde pdf dosyası yada resim ekleyebilir miyim?Kodunu yazar mısınız?

 

[kmlztrk]

Teşekkür ederim Levent bey,

Yukarıdaki verileri gönderirken ekinde pdf dosyası yada resim ekleyebilir miyim?Kodunu yazar mısınız?

9 nolu mesajda örnek olarak "deneme.xls" dosyası eklenip gönderilmiş aynı şekilde pdf veya jpg veya herhangi bir dosyanın yolunu yazarak ekleyebilirsiniz.

 

[kmlztrk]

Levent bey;

öncelikle elinize sağlık çok güzel olmuş benim sorum
iletiyi outlook'ta değil de varsayılan e-posta programında örneğin live mail'de nasıl oluşturabiliriz