본문 텍스트에 따라 Outlook 전자 메일 제목을 변경하십시오.

Question

저는 프로그래밍과 스크립팅에 익숙하지 않지만 Outlook에서 자동화하고 싶은 작업이 있습니다.

은 기본적으로 우리가 "[SITENAME]에 대한 경고 - 업 링크 상태가 변경"주제로 우리의 공급 업체 중 하나의 시스템에서 자동으로 알림 이메일을 받고 어디 이메일 본문은 두 개의 텍스트 문자열 다음 중 하나가 포함됩니다 :

을 "보안 어플라이언스는 인터넷 2를 업 링크로 사용하도록 전환했습니다. "

또는

"가 보안 장치는 역방향으로 인터넷 (1)을 사용하여 전환."

지금 우리는 업 링크가 위 또는 아래로 이동했는지 여부를 확인하기 위해 각 이메일을 읽을 필요가 있습니다.이 이메일을 제목에서 직접 볼 수 있기를 원합니다.

나는 코드에 따라 제조했지만 제대로 동작하지 않습니다 :

Sub changesubject() 

Dim myMessage As Outlook.MailItem 
Set myMessage = Outlook.ActiveInspector.CurrentItem 

If myMessage.Body = "Internet 2 as its uplink" then 
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN" 
End If 

If myMessage.Body = "Internet 1 as its uplink" then 
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP" 
End If 

End Sub 

사람이 내 코드에서 누락 무엇을 지적시겠습니까? 감사!

Answer 1

= 대신 If 문에 Like을 사용하십시오. This은 어떻게 Like 연산자가 작동하는지 설명합니다. 또한 구글 "VBA 좋아요"수 당신은 더 많은 결과

Sub changesubject() 

Dim myMessage As Outlook.MailItem 
Set myMessage = Outlook.ActiveInspector.CurrentItem 

If myMessage.Body Like "*Internet 2 as its uplink*" then 
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK DOWN" 
End If 

If myMessage.Body Like "*Internet 1 as its uplink*" then 
    myMessage.Subject = myMessage.Subject & "- PRIMARY LINK UP" 
End If 

End Sub