Lỗi vòng lặp khi gửi email trong Excel 2013 VBA.
Chào cộng đồng! Sau khi nâng cấp lên Office365, macro đính kèm không còn hoạt động nữa. Khi đến đoạn mã: "Set olNewMail = CreateItem(olMailItem)" Nó dừng lại gần 60 giây trước khi tiếp tục, nhưng không có thư nào được gửi đi. Bạn có ý tưởng hay nào không? Cảm ơn trước! Trân trọng, Kim Koch Sub SendEmail() Trang tính ("Bảng"). Chọn Khi xảy ra lỗi, tiếp tục. Tiếp theo. Dim olApp As Outlook.Application Dim olNewMail As Object Dim Recep As String Dim MsgTxt As String Dim Attchedfile As String Dim Sti As String Dim Varnavn As String Dim Vedhaeft As String Dim antallinier As String Sti = "" & Sti1 & "" Filende = ".xls" ' Finder antal linier som skal tælles Dim sidstekolonne As String Phạm vi ("C1"). Chọn Selection.End(xlDown).Select sidstecelle = ActiveCell.Address antallinier = ActiveCell.Row ' **** Findel antal linier som skal talles Set olApp = GetObject("Outlook.Applic...