Excelden bulunan bir listeyi outlook a aktarma

[ElektroNick]

Herkese merhaba,
Excel'de hazırlanmış isim, soyisim ve e-mail listesindeki e-mail de gönderilecek yere, aynı mail adresinin karşısındaki isim soyisim bilgilerini de "Sayın....." Boşluğuna otomatik olarak işleyecek bir özelliğe çok ihtiyacım var. Fihristimdeki yaklaşık 2000 kişiye bir yazıyı mail atmam lazım. Yardımınız olursa inanın çok makbule geçer. Şimdiden çok teşekkür eder, saygılarımı sunarım.

 

[Emir Hüseyin Çoban]

. . .

Örnek dosya ekleyiniz. Net çözümler için örnek dosya üzerinden gitmek gerekir.

. . .

 

[ElektroNick]

bütün dosyaları .rarla tek klasörle yükledim. outlook dokümanı nedense eklenemiyordu bu yüzden rar la gönderdim. ilginize ve emeğinize sağlık,

 

[Emir Hüseyin Çoban]

. . .

Listedeki herkese maili tek hamlede mi gönderelim yoksa listeden gönderim yapılacakları seçecek misiniz ?

. . .

 

[ElektroNick]

Kör istedi bir göz....
söylemiş olduğunuz iki seçenekten herhangi birisi olsa da çok makbule geçer. sizi hangisi daha az uğraştıracaksa o olsun.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.
Toplu gönderim yapacaktır.

Sub KOD()
Application.ScreenUpdating = False
[B][COLOR="DarkGreen"]'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/COLOR][/B]

metin = "<BR>" & _
"abcd consulting -Turkey is proud to announce a special Training seminar designed for construction, engineering, legal and banking professionals." _
& "<BR><BR><BR>" & _
"15-16 July, 2012" _
& "<BR>" & _
"Sheraton Antalya Hotel , Istanbul - TURKEY"

For h = 2 To [E65536].End(3).Row
If Cells(h, "E") <> "" Then

With Application
.EnableEvents = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = Sheets("Sayfa1").Cells(h, "E")
'.CC = ""
.Subject = "Deneme"
.HTMLBody = "Dear  " & Sheets("Sayfa1").Cells(h, "A") & "," & "<BR>" & metin
'.Attachments.Add ""
'.Importance = 2 'önem düzeyi 2:yüksek 1:normal 0:düşük
.Save
.Send
'.Display
End With
End If
Next h

Set objMail = Nothing
Set objOutlook = Nothing

Application.ScreenUpdating = True
MsgBox " B i t t i "
End Sub

. . .

 

[ElektroNick]

Hocam, çok çok teşekkür ederim. inanılmaz makbule geçti inanın.

birşey daha danışacaktım: kod kısmına ilk defa giren biriyim sayenizde. ben size örnek bir metin yollamıştım. metin daha da uzundu ve birden çok paragraf vardı. sizin yaptığınızı kullanmaya çalışıp
"yazı...." _
& "<BR><BR>" & _
"yazı...." _

şeklinde gitmeye çalıştığımda en son "TOO MANY LINE CONTINUATON" uyarısını aldım. "yazı..." içerisinde de enter yapmama müsaade etmiyor. ne yapmam lazım?

 

[ElektroNick]

ek olarak yazı times new roman oluyor. fontu değiştirmek için ne yapmalıyım?

 

[Emir Hüseyin Çoban]

. . .

Değişken ve uzun metinler için,
yazıları excelden aldırsak olmaz mı ?

. . .

 

[ElektroNick]

excel'den aldığımızda metnin içeriği ile metnin şekli ile kolaylıkla oynayabilinecek mi? eğer böyle olursa harika olur.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir. Denemeler yaparak inceleyiniz.
Açıklamalarını yaptım. Yine takıldığınız kısımları sorarsınız.

. . .

 

[ElektroNick]

son olarak biliyorum çok oldum , mailde logo için küçük bir jpg dosyası koymak istiyordum. nasıl koyabilirim?

 

[ElektroNick]

birde metin için de kırmızı ile yazmak istediğimiz bir kısım vardı

 

[Emir Hüseyin Çoban]

. . .

Örnek verilerden oluşan son hali ektedir.

. . .

 

[ElektroNick]

Hüseyin Bey Merhaba,
elinize sağlık, işlem tamamdır. Konu çözümlendi sayenizde.