AccessTr.neT

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

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?

(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

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