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