Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 05-11-2017, 14:06   #1
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 795
Excel Vers. ve Dili:
2007, 32
Varsayılan Kodu Revize Etmek İçin Yardım (Makro ile Mail Gönderme)

Değerli Arkadaşlar,

Aşağıdaki kod ile Sayfa1'in A sütunundaki e-posta adreslerine sırayla mail atabiliyorum.

Ancak Textbox'ta yazdığım mesajda yer yer paragraf yapmama rağmen karşı tarafta tek paragraf gibi görünüyor.

İkincisi; .html dosyası olarak hazırladığım imzam da karşı tarafta görünmüyor.
Kodu revize edebilir miyiz acaba?

Örnek dosya ektedir.

Şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: rar POSTA.rar (21.4 KB, 9 Görüntülenme)
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 14:15   #2
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 795
Excel Vers. ve Dili:
2007, 32
Varsayılan

Kullandığım kod aşağıdadır.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton5_Click()

On Error Resume Next
If CheckBox1 = True Then

son = Sheets("sayfa1").Range("A65536").End(3).Row
For i = 2 To son

Dim Signature, MS As Object
Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set NewMail = OutApp.CreateItem(olMailItem)

Set MS = CreateObject("Scripting.FilesystemObject")
Set Signature = MS.OpenTextFile(ThisWorkbook.Path & "\imza.html", 1)




With NewMail
.To = Sayfa1.Cells(i, "A")
.Subject = TextBox3.Text
.HTMLBody = TextBox2.Text
.HTMLBody = .HTMLBody & "<p><p><p>" & Signature.readall

If TextBox5.Text <> "Dosya ekle." Then
.Attachments.Add TextBox5.Text
.Display
End If

.Save
.Send
End With

Next i
End If

son = Sheets("sayfa1").Range("A65536").End(3).Row
MsgBox "Mesajınız listenizdeki " & son - 1 & " adrese iletildi.", vbInformation, "       Postacı"


Set NewMail = Nothing
Set OutApp = Nothing

End Sub
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 14:21   #3
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 795
Excel Vers. ve Dili:
2007, 32
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
.HTMLBody = TextBox2.Text
.HTMLBody = .HTMLBody & "<p><p><p>" & Signature.readall
Yukarıdaki satırı aşağıdaki şekilde düzeltince paragraf sorunu çözüldü ancak imza sorunu devam ediyor.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
.Body = TextBox2.Text
.Body = .Body & "<p><p><p>" & Signature.readall
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 18:59   #4
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 795
Excel Vers. ve Dili:
2007, 32
Varsayılan

Arkadaşlar konu günceldir.

Selamlar.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 20:11   #5
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,247
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Merhaba
Dosyanıza bakma imkanım yok ama kodlarıza göre; şöyle olabilir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton5_Click()
'...
'..kodlar

For i = 2 To son
bd = Empty: bdc=empty 


'....
'....

With NewMail
.To = Sayfa1.Cells(i, "A")
.Subject = TextBox3.Text
For k = 0 To UBound(Split(TextBox2.Value, Chr(10)))
If bd <> Empty Then bdc = "<br>"
bd = bd & bdc & Split(TextBox2.Text, Chr(10))(k)
Next
   '.HTMLBody = bd
.HTMLBody = bd & "<p><p><p>" & Signature.readall

If TextBox5.Text <> "Dosya ekle." Then

'...
'....diğer kodlarınız
'...

End Sub 
PLİNT Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2017, 23:10   #6
Emir Hüseyin Çoban
Destek Ekibi
 
Emir Hüseyin Çoban kullanıcısının avatarı
 
Giriş: 11/08/2008
Şehir: Denizli
Mesaj: 5,675
Excel Vers. ve Dili:
Office 2013 Tr - Win8 x64
Varsayılan

.



İmzaların uzantısı .html değil .htm dir.

.
__________________
.
Cüzzi Ücretlerle Sorularınıza Özel Destek Almak İçin Özel Mesaj Yazabilirsiniz...

e-mail: huseyincobann@gmail.com
Tel: 0531-285-06-15

http://www.excel.web.tr/private.php?do=newpm&u=101759

Örnek Dosya Hazırlarken Dikkat Edilmesi Gerekenler için link:
https://goo.gl/ckn2NC
_

İyi Günler...

Türkçe konuşup, Excel'ce yazıyoruz!..
...:::: Diren #Excel.Web.Tr :::....


Emir Hüseyin Çoban Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-11-2017, 02:20   #7
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 795
Excel Vers. ve Dili:
2007, 32
Varsayılan

Çok teşekkürler arkadaşlar,

PLİNT hocanın verdiği kod ve html dosyasını htm olarak değiştirince
sorun çözüldü.

Çok sağolun.
__________________
Demiri demirle dövdüler, biri sıcak biri soğuktu.
İnsanı insana kırdırdılar, biri aç biri toktu.

Pir Sultan Abdal
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 06:35


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden