VBA Outlook - 상자에서 설정하십시오.

Question

다음 VBA 스크립트를 사용하여 Outlook에서 이메일을 보내고 있습니다. 매끄러운 작업. 유일한 것은 발신자에게서 내 것을 설정하고 싶습니다. 나는 "Marc"와 "bedrijfsbureau"라는 두개의 것을 사용한다. (그림 : http://www.flickr.com/photos/112983354@N05/12344745935/ 참조)

아무리 내가 어떻게 설정할 수 있겠는가? 코드는 아래 내 피하여

Sub SendMessage() 

Dim OutApp As Object 
Dim OutMail As Object 
Dim var1 As String 
Dim sentto As String 

sentto = "Referentenrapportage" 


Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 


var1 = InputBox("Zet hier neer welke maand het is") 

    With OutMail 
    .From = Bedrijfsbureau 
    .To = sentto 
    .CC = "" 
    .BCC = "" 
    .Subject = "SENS referentenrapportage Maand" & var1 
    .Body = "Beste SDM'er, Bijgevoegd de SENS sterrenrapportage van maand" & var1 


    .Display 
    End With 
    End Sub 

Answer 1

.From이 MailItem 객체의 유효한 속성이 아닙니다이기 때문에 그 오류가 표시에 오류가 있습니다. 당신은 이메일 on behalf of Bedrijfsbureau를 보내려면 (MailItem 속성의 전체 목록 See this.)

, 당신은 MailItem 개체 속성 SentOnBehalfOfName을 사용해야합니다. 예를 들어, 다음과 같이 사용합니다 :

With OutMail 
    .SentOnBehalfOfName = "Bedrijfsbureau@yourcompany.com" 
    'Other code 
End With 

을 두 개의 다른 이 계정이 있고, 두 번째 계정을 사용하려면, 당신은 Bedrijfsbureau의 계좌 번호를 알아야합니다. Ron de Bruin에는 이에 대해 자세히 다루는 훌륭한 기사가 있습니다 (일부 샘플 코드 포함). 나는 그것을 밖으로 체크 아웃하는 것이 좋습니다.