• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütundaki e-mail adreslerine diğer sütundaki bilgileri göndermek.

  • Konbuyu başlatan Konbuyu başlatan abali
  • Başlangıç tarihi Başlangıç tarihi
A

abali

Katılım
16 Mayıs 2012
Mesajlar
7
Excel Vers. ve Dili
excell 2003
Merhabalar;

Yapmak istediğim şeyi tam olarak anlatabileceğimi umut ediyorum.

Excell bilgim maalesef sınırlı olduğu için sizlere danışıyorum.

İstediğim şeyi örnek vermem gerekirse


A sütunu: isim

B sütünu: Tutar

c Sütunu: Metin

D sütunu: e-mail adresi



Ben dataları yerleştirdikten sonra. D sütunundaki e-mail adresine, B sütunundaki Tutarı ve bitişik olarak devamında C sütunundaki metni göndermek istiyorum.

Örnek: B sütunu: 20.000,00TL
C sütunu: tutarında ödeme yapılacaktır.

e-mail de gönderilmesini istediğim text " 20.000,00 TL tutarında ödeme yapılacaktır."

Datalar sürekli değişeceği için her seferinde kendim manuel olarak girip ardından bi şekilde kodu çalıştırıp, yukarıda anlattığım şekilde mail adreslerine sütunlardaki bilgilerini göndermek istiyorum.

İnternette araştırdım ancak tam olarak istediğim şekilde bulamadım maalesef.

Yardımcı olabilecek arkadaşlar varsa çok sevinirim.

Teşekkürler
 
. . .

Merhaba.
Örnek bir dosya ekleyin. Üzerinde çalışalım.

. . .
 
. . .

Dosyanızı aldım.
Uydurma firma ve mail isimleriyle forumada yükleyebilirdiniz.

400 tane firma olacaktır demişsiniz. Bu firmaların hepsine mi mail gidecek. Yoksa 400 firmadan sadece tutarı dolu olan veya başka bir kıstasa göre belirli bir kısmına mı mail gidecek.

. . .
 
Hüseyin Çoban' Alıntı:
. . .

Dosyanızı aldım.
Uydurma firma ve mail isimleriyle forumada yükleyebilirdiniz.

400 tane firma olacaktır demişsiniz. Bu firmaların hepsine mi mail gidecek. Yoksa 400 firmadan sadece tutarı dolu olan veya başka bir kıstasa göre belirli bir kısmına mı mail gidecek.

. . .
Genişletmek için tıkla ...


Ben ham veriden ayıklayarak sadece ödeme yapılacak firmaları dosyaya ekleyeceğim. Dolayısıyla hepsinin tutarı dolu olacak. Başka da bir kıstasımız olmayacak.
 
. . .

Öncelikle Microsoft Outlook açık olamalı.
Daha sonra aşağıdaki kodları, excel tablonuzda. Boş bir modüle yapıştırın.

Kod: 
Sub mail_gönder_kod()
Application.ScreenUpdating = False
Dim aa, firma
aa = [b65536].End(3).Row

For h = 2 To aa
firma = Range("b" & h)
With Application
.EnableEvents = True
.ScreenUpdating = 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 = Range("e" & h)
'.CC = ""
'.BCC = ""
.Subject = Range("b" & h)
'.HTMLbody
.body = Format(Range("c" & h), "#,000.00") & " " & Range("d" & h)
.Save
'.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
MsgBox firma & Chr(10) & "Mail gönderildi."
Next h
Application.ScreenUpdating = True
End Sub

. . .
 
Son düzenleme:
Hüseyin Bey, tekrardan çok teşekkür ederim. Gerçekten çok işime yarayacak.
 
. . .

Kodlarda güncelleme yapmıştım. Kodları aldığınız zamanı veya yeni kodlarımı kullandığınızı kontrol ediniz.

. . .
 
Hüseyin Çoban' Alıntı:
. . .

Kodlarda güncelleme yapmıştım. Kodları aldığınız zamanı veya yeni kodlarımı kullandığınızı kontrol ediniz.

. . .
Genişletmek için tıkla ...


İlk gönderdiğiniz kodla da denemiştim. Bu şekilde daha iyi olmuş.

Çünkü duruma göre tutarın önünde bir metin daha eklemek için kendim değişiklikleri yapabilirim sanıyordum ama sandığımdan daha da kompleks bir şeymiş.

Şu an sütunun firma ismini değiştirerek yazmak isteyeceğim şeyi konuş başlığına yazabilirim.

Aslında müsait olursanız tam olarak yapmak istediğim şey için uydurma firma ve mail adresleri ile dosyayı hazırlayıp foruma upload ederim. Hem diğer arkadaşlar da faydalanmış olurlar.
 
. . .

Siz aklınızdaki çalışmanın örneğini buraya yükleyin.
Vaktim ve bilgim dahilinde benden ve forumdaki arkadaşlardan yardım gelecektir.

. . .
 
http://www.dosya.tc/server15/Rtf44h/DENEME22.xls.html

Yeni dosyayı yukarıdaki adrese yükledim.

Gönderilecek mailin konu kısmına ödeme planı yazmak için ne yapabiliriz? Yan tarafta boş kalan bir sütuna "ödeme planı" yazabilirim mesela. Konu kısmını da o boş kalan sütundan alabilir mi? Örnekte G sütununa konu da ekledim.

Ayrıca 2 tane sorum olacak sizlere.


Birincisi, diyelim ki asıl listede 300. satırda sonlanıyor firmalar. Kod içerisinde değiştireceğim yeri belirtebilir misiniz bana? sanırım sadece o kısma 300 yazarsam, örnekteki satır kadar değil de 300. satıra kadar olan tüm firmalara mail gidebilir.

İkincisi ise outlook başka bir programın mail göndermek istediğini ve benden izin vermem için onay vermemi istiyor. Bunu otomatik şekilde yapabilir miyim? Yani ayarlardan otomatik mailleri gönderirken sorma tarzı bir ayar var mıdır?


Yardımlarınız için tüm samimiyetimle teşekkür ederim.
 
. . .

Aşağıdaki kodları deneyiniz.
Verdiği uyarı, bilgisayarınızdaki outlookun güvenlik seviyesi ile ilgili.
Gönderim, güvenlik vb. ayarlarını inceleyiniz.
Daha önceki çalışmalarımda bu uyarı ile karşılaşmıştım. Outlook ve virüs programı ayarlarını kurcalarken düzeldi.

Kod: 
Sub mail_gönder_kod2()
Application.ScreenUpdating = False
Dim firma
'aa = [b65536].End(3).Row
aa = InputBox("Satır sayısı giriniz:")
If aa = "" Then
Exit Sub
End If

For h = 2 To aa
firma = Range("b" & h)
With Application
.EnableEvents = True
.ScreenUpdating = 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 = Range("f" & h)
'.CC = ""
'.BCC = ""
.Subject = Range("g" & h)
'.HTMLbody
.body = Range("c" & h) & " " & Format(Range("d" & h), "#,000.00") & " " & Range("e" & h)
.Save
'.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
MsgBox firma & Chr(10) & "Mail gönderildi."
Next h
Application.ScreenUpdating = True
End Sub

. . .
 
Hüseyin Bey;

Tam istediğim gibi olmuş. Ellerinize sağlık.

Vakit ayırdığınız için teşekkür ederim.

Çalışmalarınızda başarılar.
 
Hüseyin Çoban' Alıntı:
. . .

Aşağıdaki kodları deneyiniz.
Verdiği uyarı, bilgisayarınızdaki outlookun güvenlik seviyesi ile ilgili.
Gönderim, güvenlik vb. ayarlarını inceleyiniz.
Daha önceki çalışmalarımda bu uyarı ile karşılaşmıştım. Outlook ve virüs programı ayarlarını kurcalarken düzeldi.

Kod: 
Sub mail_gönder_kod2()
Application.ScreenUpdating = False
Dim firma
'aa = [b65536].End(3).Row
aa = InputBox("Satır sayısı giriniz:")
If aa = "" Then
Exit Sub
End If

For h = 2 To aa
firma = Range("b" & h)
With Application
.EnableEvents = True
.ScreenUpdating = 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 = Range("f" & h)
'.CC = ""
'.BCC = ""
.Subject = Range("g" & h)
'.HTMLbody
.body = Range("c" & h) & " " & Format(Range("d" & h), "#,000.00") & " " & Range("e" & h)
.Save
'.Display
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = True
MsgBox firma & Chr(10) & "Mail gönderildi."
Next h
Application.ScreenUpdating = True
End Sub

. . .
Genişletmek için tıkla ...

bu kodla birlikte gönderilen maile resim eklenebilirmi acaba?
yani "yukarıdaki resimde görüldüğü gibi" bir bilgi içeren maile resim eklenebilirmi?
 
. . .

Merhaba.
Daha önce Tarkan Vural bu çalışmayı, gerçekleştirmiş zaten.
Kodlarını, tabloya göre birazcık revize ettim. Dosyayı inceleyiniz.
Resimler .jpg uzantılı olmalı.

. . .
 

Ekli dosyalar

. . .

Dosya yolu olarak yazdığınız yerde, resimler yoksa hata verir.

. . .
 
evet haklısınız
resimlerle alakalı bir durummuş
düzeldi,
teşekkür ederim elinize bilginize sağlık,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst