Makroyla email gonderme

ockucukay · 28 Kasım 2008

her türlü makroyla mail gönderme örnekleri ektedir, şimdiden kolay gelsin...

baydeniro · 28 Kasım 2008

Paylaşım için teşekkürler

whitesun · 22 Aralık 2008

ockucukay' Alıntı:
her türlü makroyla mail gönderme örnekleri ektedir, şimdiden kolay gelsin...

Paylaşım için teşekkürler,
Bu 3 dosyayı ezberledim artık ama hala yapamadım..

a sütünunda gönderilecek kişi ismi
b sütununda gönderilecek mail
c sütununda gönderilecek mail yazısı.

bu olay yok verdiğiniz dosylarda

aekturk · 22 Aralık 2008

whitesun' Alıntı:
Paylaşım için teşekkürler,
Bu 3 dosyayı ezberledim artık ama hala yapamadım..

a sütünunda gönderilecek kişi ismi
b sütununda gönderilecek mail
c sütununda gönderilecek mail yazısı.

bu olay yok verdiğiniz dosylarda

Selamlar whitesun nasıl bir sorunun olduğunu örnek bir dosya ile açıklar isen daha çok yardımcı olmaya çalışırım.

Ayrıca

serdarokan için "Hocam .send aşamasında makro takılıyor ? "

demiş. Eğer ayarları doğru şekilde yaptığından eminsen yaptığın dosyayı gönder onun üzerinde çalışalım. Çünkü tüm versiyonlarda denedim. Excel 2000 - xp - 2003 - mac 2004 - 2007 tümünde sorunsuz çalışan senin bilgisayarında neden çalışmasın. Kötü olacak biliyorum ama birçok kişi internet bağlantısı olmayan makinede deniyor. Çalıştığı esnada da internetin var olduğundan emin olursanız sevinirim. Kusuruma bakmayın hatırlattığım için. Saygılarımla.

ockucukay · 22 Aralık 2008

whitesun' Alıntı:
Paylaşım için teşekkürler,
Bu 3 dosyayı ezberledim artık ama hala yapamadım..

a sütünunda gönderilecek kişi ismi
b sütununda gönderilecek mail
c sütununda gönderilecek mail yazısı.

bu olay yok verdiğiniz dosylarda

Dersinize iyi çalışmamışsınız

"Outlook Body Examples" dosyasında istediğiniz örneğin neredeyse aynısı var. (Bkz. Sayfa SendPersonalizedEmail) Kendinize çok rahatlıkla uyarlayabilirsiniz.

whitesun · 22 Aralık 2008

ockucukay' Alıntı:
Dersinize iyi çalışmamışsınız "Outlook Body Examples" dosyasında istediğiniz örneğin neredeyse aynısı var. (Bkz. Sayfa SendPersonalizedEmail) Kendinize çok rahatlıkla uyarlayabilirsiniz.

Merhaba hocam,

Evet mantık olarak dediğiniz var. en çok o kitap ile uğraştım fakat Mail metnini yazacak biryer yok.

Module'ün içine girdim, Mail metnini oraya yazmam gerekiyor. fakat 2. satıra inince kod bozuluyor.

To = cell.Value
.Subject = "Reminder"
.Body = "Dear " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Please contact us to discuss bringing your account up to date"

kırmızı ile renklendirdiğim metni değiştirdiğimde formül bozuluyor. 3-4 satır olunca formül çalışmıyor. sadece kırmızı renkli satırı değiştirdiğimde formül çalışıyor. Mail metnini değiştiremiyorum.

Söylediğiniz kitapta çok uğraştım. fakat konuya çok hakim olamadığım için revize edemedim.

Toparlamak gerekirse.

Tek istediğim ekteki dosyanın çalışır hale gelmesi
Eminimki çok basit bir şekilde olay çözülüyor ama bilmeyince çok zor oluyor.
Siz değerli üstadlarım ekteki dosya ile ilgilenebilrse çok sevinirim.
Gerekli açıklama XLS dosyasının içine yazıldı (SendPersonalizedEmail)

turkuaz81 · 9 Mayıs 2009

Konu bütünlüğü olması açısından buraya ekliyeyim dedim.

Kod:

[COLOR="Green"]'A57;A58 vs vs deki maillere gönderir[/COLOR]
.To = s1.[A57] & ";" & s1.[A58]
[COLOR="Green"]'Konu içeriği için j4 deki değere yazı ve tarih ekler.[/COLOR]
.Subject = s1.[j4] & "_Rapor_" & Format(Date, "dd.mm.yyyy")
[COLOR="Green"]'Mailin içeriği ; yazılar + j4 deki veri +tarih vs vs [/COLOR]
.Body = "Tüm ilgililer,  " & Chr(10) & Chr(10) & Format(Date, "dd.mm.yyyy_") & "tarihli " & s1.[j4] & " aksiyonları ektedir. " & Chr(10) & Chr(10) & "Saygılarımla" & Chr(10) & Chr(10) & Chr(10) & Chr(10) & "Bu mail otomatik olarak gönderilmiştir."
[COLOR="Green"]'Dosya eklemek için c:\excel klasöründeki tarih+j4 deki veri isimli jpg dosyayi ekler.[/COLOR]
.Attachments.Add "c:\excel\" & Format(Date, "dd.mm.yyyy_") & s1.[j4] & "_rapor" & ".jpg"
[COLOR="Green"]'Maili gösterir[/COLOR]
.Display
[COLOR="Green"]'Maili gönderir. Kendiniz göndermek için bu satırı silebilirsiniz.[/COLOR]
.Send

whitesun · 10 Mayıs 2009

teşekkür ederim hemen bir deniyeyim.
Sonucu bildiririm.

Serdar SELEN · 23 Mayıs 2009

Hocam guzel bır bılgı hemde harıka amabenım bır sorum var burda ıkı maıl adresı kullanmak ıstıyorum bırı cc bolumune bırı to bolumune gıdecek ve ben butonu farklı bır sayfada koyacagım yanı bırıncı sayfadakı butona bastıgımda ıkıncı sayfayı gondermek ıstıyorum mumkun mu acaba

turkuaz81 · 23 Mayıs 2009

Kod:

[COLOR="green"]'Alıcı[/COLOR]
.To = "mail@mailadresi.com"
[COLOR="green"]'Bilgi maili[/COLOR]
.CC = "mail@mailadresi.com"
[COLOR="Green"]'Gizli alıcı[/COLOR]
.BCC = "mail@mailadresi.com"

Serdar SELEN · 23 Mayıs 2009

tşk hocam elınıze saglık

2008model · 23 Mayıs 2009

Hocam kodunuz çok güzel teşekkürler.birde benim sorum olacak bu verdiğiniz koda saat nasıl ilave edebiliriz.meesela e maili her gün sabah saat 11 de göndersin gibi

baydeniro · 23 Mayıs 2009

Merhaba arkadaşlar. Mail göndermeyi send tuşuna basmaya gerek kalmadan gönderme konusunda bir gelişme oldu mu ?

bilalakdeniz · 13 Haziran 2009

Sayın Tarkan TURHAL mail gönderne makrosununda izin ver diye sormasa mümkünmüdür.

bilalakdeniz · 27 Haziran 2009

İzin ver diye sormaması mümkünmü?

Sayın Tarkan Bey tam aradığım gibi ama hem birden fazla mail adresine göndermek ve izin ver diye sormamasını istiyorum mümkünmü ?

Tarkan VURAL' Alıntı:

Hemen hemen hergün kendi kullandığım bir kodum var bunu sizinle paylaşmak isterim.

Kod:

Private Sub yolla_click()
Dim wb As Workbook
Dim strdate As String
Dim name, isim, plaka As String
    plaka = Sheets("form").Range("f8").Value
    isim = Sheets("form").Range("c6").Value
    strdate = Format(Now, "dd-mm-yy ")
    name = isim & " " & plaka & " " & strdate & ".XLS"
    Application.ScreenUpdating = False
    ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
        .SaveAs "c:\" & name
        .SendMail "tarkanvural@hotmail.com", _
                  "Sipariş Formu"
        .Close False
End With
    Application.ScreenUpdating = True
    Kill "c:\" & name

End Sub

SAYGILARIMLA;
Tarkan VURAL

kral10 · 27 Ağustos 2009

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub ototomatik_mail()

Dim msg As String, cell As Range
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

MESAJ = MsgBox(" DİKKAT! Tüm Şubelere E-Mail Gönderilecek Eminmisiniz ? !!!", vbYesNo, "DBA")
If MESAJ = vbNo Then MsgBox " GÖNDERİM İŞLEMİ İPTAL EDİLDİ.", vbCritical, "DBA": Exit Sub

e = Application.WorksheetFunction.CountA(Range("a2:a65536")) + 1

For x = 2 To e

Recipient = Range("d" & x).Value
'Recipient = "." & Range("d" & x).Value
Recipientcc = "deneme@hotmail.com"
Recipientbcc = ""

Subj = Range("b" & x).Value & "/" & "denemedir"

msg = msg & "İyi Çalışmalar, " & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "denemedir " & Cells(x, 1) & " Nolu " & Cells(x, 2) & " denemedir" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & " denemedir" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "Saygılarımla;" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "" & vbCrLf

Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
msg = Application.WorksheetFunction.Substitute(msg, " ", "%20")

msg = Application.WorksheetFunction.Substitute(msg, vbCrLf, "%0D%0A")

HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg

ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s"
On Error Resume Next
OutMail.Send
Set OutMail = Nothing
Set OutApp = Nothing

Next x

End Sub

Arkadaşlara bu kodlarla oatamatik mail gönderiyorum ancak bir tanesine atıp diğerlerine atmıyor for next döngüsüde işliyor görünüyor ama sen kısmından göndermiyor konuyla ilgili yardımcı olursanız çok sevinirim ACİLLLLLLL

kral10 · 27 Ağustos 2009

Arkadaşlara bu kodlarla otomatik mail gönderiyorum ancak bir tanesine atıp diğerlerine atmıyor for next döngüsüde işliyor görünüyor ama sent kısmından göndermiyor konuyla ilgili yardımcı olursanız çok sevinirim ACİLLLLLLL

Private Declare Function ShellExecute Lib "Shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Sub ototomatik_mail()

Dim msg As String, cell As Range
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String

Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

MESAJ = MsgBox(" DİKKAT! Tüm Şubelere E-Mail Gönderilecek Eminmisiniz ? !!!", vbYesNo, "DBA")
If MESAJ = vbNo Then MsgBox " GÖNDERİM İŞLEMİ İPTAL EDİLDİ.", vbCritical, "DBA": Exit Sub

e = Application.WorksheetFunction.CountA(Range("a2:a65536")) + 1

For x = 2 To e

Recipient = Range("d" & x).Value
'Recipient = "." & Range("d" & x).Value
Recipientcc = "deneme@hotmail.com"
Recipientbcc = ""

Subj = Range("b" & x).Value & "/" & "denemedir"

msg = msg & "İyi Çalışmalar, " & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "denemedir " & Cells(x, 1) & " Nolu " & Cells(x, 2) & " denemedir" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & " denemedir" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "Saygılarımla;" & vbCrLf
msg = msg & "" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "denemedir" & vbCrLf
msg = msg & "" & vbCrLf

Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
msg = Application.WorksheetFunction.Substitute(msg, " ", "%20")

msg = Application.WorksheetFunction.Substitute(msg, vbCrLf, "%0D%0A")

HLink = "mailto:" & Recipient & "?" & "cc=" & Recipientcc & "&"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & msg

ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue("0:00:01"))
Application.SendKeys "%s"
On Error Resume Next
OutMail.Send
Set OutMail = Nothing
Set OutApp = Nothing

Next x

End Sub

kral10 · 27 Ağustos 2009

Arkadaşlara bu kodlarla otomatik mail gönderiyorum ancak bir tanesine atıp diğerlerine atmıyor for next döngüsüde işliyor görünüyor ama sent kısmından göndermiyor konuyla ilgili yardımcı olursanız çok sevinirim ACİLLLLLLL

kral10 · 1 Eylül 2009

bana cevap verecek bir kişi yokmu forumda

mf.murat · 17 Ekim 2010

Arkadaşlar ilgili kodları inceledim.
BEn Aktif sayfayı üzerinde imza olması sebbeiyle pdf formatına çevirerek mail eklemek istiyorum.
Bunu nasıl gerçekleştirebilirm.

YArdımlarınızı bekliyorum.

Makroyla email gonderme

ockucukay

Ekli dosyalar

baydeniro

whitesun

aekturk

ockucukay

whitesun

Ekli dosyalar

turkuaz81

whitesun

Serdar SELEN

turkuaz81

Serdar SELEN

2008model

baydeniro

bilalakdeniz

bilalakdeniz

kral10

kral10

kral10

Ekli dosyalar

kral10

mf.murat