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