Skip to main content

AccessTr.neT


Excel Mail Gönderimi Hkk.

hakanhaldız
hakanhaldız
3
881

Excel Mail Gönderimi Hkk.

Çözüldü #1
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
.rar '''''Firma Bakiye Mail Gönderme'''''.rar (Dosya Boyutu: 249,02 KB | İndirme Sayısı: 10)
Cevapla
#2
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?
Cevapla
#3
(26/07/2019 15:37)halily Adlı Kullanıcıdan Alıntı: 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
Cevapla
#4
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
Visual Basic Code
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da