+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Mail Gönderimi Hkk. (/konu-excel-mail-gonderimi-hkk.html)
Excel Mail Gönderimi Hkk. - hakanhaldız - 26/07/2019
Merhabalar;
Daha önceki konuları okudum çok eski cevaplarda mevcut bu yüzden konu açma gereksinimi duydum. Yanlışlık yaptıysam affola.
Ben bir şirkette satın alma personeliyim daha önceden hazırlanmış fakat işlevini yitirmiş bir otomatik mail gönderme makrosu mevcut. Fakat bu makroda hatlar alıyorum. Devamlı gönderim için onay isteniyor. Bir kullanıcı bunun hakkında açıklama yapmış ve kodu paylaşmış uygun yere işledim fakat problemimi düzeltemedim.
Hazır olan çalışmamı ek dosya olarak yükledim. Desteğiniz ve yorumlarınız için şimdiden teşekkür ederim.
Saygılarımla
Cvp: Excel Mail Gönderimi Hkk. - berduş - 26/07/2019
sorun tam olarak ne anlamadım mail gönderilemiyor mu yoksa mail gönderiyor ama her mail için izin istiyor siz onu mu engellemek istiyorsunuz?
hatanın ne olduğunu ve varsa hata kodunu belirtir misiniz?
RE: Excel Mail Gönderimi Hkk. - hakanhaldız - 26/07/2019
(26/07/2019, 15:37)halily yazdı: sorun tam olarak ne anlamadım mail gönderilemiyor mu yoksa mail gönderiyor ama her mail için izin istiyor siz onu mu engellemek istiyorsunuz?
hatanın ne olduğunu ve varsa hata kodunu belirtir misiniz?
Halil Abi öncelikle dönüşün için teşekkür ederim.
Her gönderimde Onay istiyor. Maillerim gidiyor fakat her mail için izin vere basmam gerekti
Cvp: Excel Mail Gönderimi Hkk. - berduş - 26/07/2019
ben denediğimde sadece en başta mail göndermek için izin istedi sonrasında başka izin istemedi
veri olamadığı için sahte veri ekledim sadece siz ve kendime göndermek için i=7 to 8 yaptım
sadece 1 defa izin istedi ama 2 maili de yolladı
yaptığım tek şey işaretli yeri pasifti aktif yaptım
With Outmail
.To = Sheets("Mail").Range("B2").Value
.CC = Sheets("Mail").Range("B3").Value
.BCC = ""
.Subject = Sheets("Mail").Range("B1").Value
If SonSatir < 20 Then
.HTMLBody = fncRangeToHtml("Mail", "D1:K20")
Else
.HTMLBody = fncRangeToHtml("Mail", "D1:K" & SonSatir)
End If
'.Attachments.Add "c:\ My Documents\ fileName.doc" '<== Öncesi aynı
.send '<== sadece burayı pasifti aktif yaptım
'.Display '<== Sonrası aynı
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys keys:="%S", Wait:=True