Marco gửi mail trong vòng lặp FOR - chỉ chạy 1 vòng vì email mở và không về excel (1 người xem)

[woodfish]

Dear các anh chị,

Em viết một vòng lặp tự động lấy sheet và gửi email, sau đó lặp lại với sheet khác. Marco chạy được 1 lần vì email mở không quay về được excel, và nếu tắt email quay về excel cũng không chạy LOOP tiếp.

Em muốn hỏi làm sao để mở email background và quay về excel chạy LOOP tiếp ah. Em cám ơn nhiều.

 

[Quang_Hải]

Sub Send_Mail()
Dim OutApp As Object, i As Long
For i = 1 To 100
   Set OutApp = CreateObject("Outlook.Application")
   OutApp.Session.Logon
   With OutApp.CreateItem(0)
      .To = "abc"
      .Subject = "noi dung"
      .Body = "Dear "
      .Display
   End With
Next
End Sub