보내기 전에 .Attachment.Add "filename"이 성공했는지 확인하는 방법

Question

메일 개체 (Outlook)를 만들고 코드를 첨부하여 보냅니다.

Dim mobjOutlook, mobjActiveExp, mobjNewMail As Object 

'Create Outlook objects 
Set mobjOutlook = CreateObject("Outlook.Application") 
Set mobjActiveExp = mobjOutlook.ActiveExplorer 
Set mobjNewMail = mobjOutlook.CreateItem(olMailItem) 

'Setup and send email 
With mobjNewMail 
    .To = "someone@test.com" 
    .Subject = "theSubject" 
    .Body = "some text" 
    .Attachments.Add "C:/The/File/Path.doc" 
    '*I need to check here if the above line worked* 
    .Send 
End With 

전송하기 전에 첨부 파일이 작동하는지 어떻게 테스트 할 수 있습니까? 이것이 가능한가? 어떤 이유로 든 이메일이 첨부 파일없이 전송됩니다.

나는 '. 저장'옵션을 어떻게 든 사용하려고 생각하고있었습니다.

어떤 생각이나 제안이라도 대단히 감사합니다. 감사합니다.

당신은 그냥 이메일에 첨부 파일의 수를 테스트 할 수

Answer 1

했다 또한> 0

Dim mobjOutlook, mobjActiveExp, mobjNewMail As Object
변종 처음 두 변수가 어두워집니다, 그래서 나는

Sub Test() 
Dim mobjOutlook As Object 
Dim mobjActiveExp As Object 
Dim mobjNewMail As Object 

'Create Outlook objects 
Set mobjOutlook = CreateObject("Outlook.Application") 
Set mobjActiveExp = mobjOutlook.ActiveExplorer 
Set mobjNewMail = mobjOutlook.CreateItem(olMailItem) 

'Setup and send email 
With mobjNewMail 
    .To = "someone@test.com" 
    .Subject = "theSubject" 
    .Body = "some text" 
    .attachments.Add "C:\temp\step1.png" 
    If .attachments.Count > 0 Then 
     .Send 
    Else 
     MsgBox "No attachment", vbCritical 
    End If 
End With 
End Sub 

이하이 재 절단 한