メインのアカウントではなく、別のアカウントから Excel で Outlook でメールを作成することができました。
問題は、彼らが 2 番目のアカウントの送信トレイに留まり、何もしないことです。このアカウントから手動でファイルを送信できることに注意してください。
Dim MyOlApp As Object
Dim MyItem As Outlook.MailItem
Dim AttachName As String
Dim SendTo As String
Dim CCTo As String
Dim E, F, G As Integer
Dim Sys_Date As String
'Sys_Date = Format(Now(), "DD-MMM-YYYY")
F = Application.WorksheetFunction.CountA(Sheets("Sheet2").Range("A:A"))
'G = F
For E = 2 To F
Sheets("Sheet2").Select
AttachName = Cells(E, 2).Value
SendTo = Cells(E, 5).Value
CCTo = Cells(E, 6).Value
Set MyOlApp = CreateObject("Outlook.Application")
Set MyItem = MyOlApp.CreateItemFromTemplate("C:\localDocuments\2 - Reporting\1 - Guides + Sample Data etc\Email.oft")
MyItem.Display
On Error Resume Next
With MyItem
Set .SendUsingAccount = MyOlApp.Session.Accounts.Item(2)
.To = SendTo
.CC = CCTo
.BCC = ""
.Subject = "Action required: " & AttachName
'You can add other files also like this
.Attachments.Add ("C:\localDocuments\2 - Reporting\Reports\" & AttachName & ".xlsx")
.Display
.Send
End With
On Error GoTo 0
Set MyItem = Nothing
Set MyOlApp = Nothing
Next E
アップデート：
問題の実際の原因を見つけることができませんでしたが。私は非常に簡単な修正を見つけることができました。
送信する必要がある代替アカウントだけを使用して、新しい Outlook プロファイルを作成しましたが、問題なく動作します。3 時間のレポートが実行されると、コードは週に 1 回しか使用されないため、これは完全に機能します。
この方法で通常の (1 日を通して) メールを送信していた人には当てはまらないことがわかります。
参考までに、WIN 8 SEARCH / MAIL (SETTINGS でフィルタリング) でプロファイルにアクセスし、[MAIL] を選択してから [VIEW PROFILES] を選択します。