• DİKKAT

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

Hücre değerine göre mail gönderimi

E

esperavan

Katılım
16 Mayıs 2017
Mesajlar
7
Excel Vers. ve Dili
Excel 2016
Merhaba,

Aşağıdaki şekilde mail gönderimi için makrom var. Bunu manuel değilde hücre değerine göre mail gönderimi olsun istiyorum. Mail gönderimi için seçili alanın hazır olduğunda E1 hücresine "Mail gönder" yazacak şekilde formülleme yapacağım. Mail gönderiminin de E1 hücresinde "Mail gönder" yazısını gördüğü anda mailin otomatik olarak gönderilmesini istiyorum. Makroda nasıl bir değişiklik yapmam lazım, yardımcı olur musunuz? Teşekkür ederim.


Sub Dikdörtgen1_Tıklat()

ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = "....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With

End Sub
 
Sub Dikdörtgen1_Tıklat()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("e1")="Mail gönder" then
ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = "....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With
End If

End Sub
 
kırmızı yeri silin ve mavi olanları ekleyip denermisiniz.
 
Teşekkür ederim yanginci34.

Denedim fakat çalışmadı. Dikdörtgen kutuya Makro ata alanından makroyu yazmıştım. Yine aynı alanda yazdığınız silme ve eklemeleri yaptım fakat çalışmadı.
 
Sizin kodunuz olduğu gibi kalsın ve sayfanın kod bölümübe aşağıdaki kodu ilave edip denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("e1")="Mail gönder" then
Call Dikdörtgen1_Tıklat
End If
End Sub
 
Teşekkür ederim. İstediğim şekilde mail gönderimi yapıldı. Kodu aşağıdaki şekilde düzenledim.
Peki buna sınır koymamız mümkün mü? Formülü başlatır başlatmaz 30 mail gitti seri olarak. Kontrol edilerek mail atılması gereken alan 1 dk arayla yenileniyor ve şartlar uygunsa mail atılması isteniyor. Bu makronun E1 hücresini 60 sn ara ile kontrol ettirmemiz mümkün mü? Veya tekrar aynı maili atmasını engelleyecek başka bir fikriniz var mıdır? Tşk.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("E1") = "Mail gönder" Then

ActiveSheet.Range("A1:C6").Select

ActiveWorkbook.EnvelopeVisible = True



With ActiveSheet.MailEnvelope

.Introduction = "EXCEL ALARMI" & Chr(13)

.Item.To = ".....@gmail.com"

.Item.CC = ""

.Item.Subject = "ALARM"

.Item.Send

End With

End If

End Sub
 
Benim yardım edebileceğim bu kadar sizin istediğiniz benim için biraz güç gözüküyor ama zaman buldukça deneme yanılma yöntemi ile birşeyler yapmaya çalışacağım herhangi bir çözüme ulaşırsam size dönüş yaparım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst