스크립트 : 사용자가 '요청'을 보낸 후받은 편지함에서 모든 전자 메일 전달 (Outlook 2003)

Outlook (2003) 스크립트를 찾고 있습니다.

필요한 것 : 모든 전자 메일을 사서함 A (PC)에서 사서함 B (전화기)로 전달하고 싶습니다. 캐치 :이 규칙은 사서함 A에 '요청'을 보낼 때만 실행해야합니다.

내가 한 일 : Outlook 2003에서 두 가지 규칙을 만들었습니다.

규칙 1-이 규칙은 모든 전자 메일을 사서함 A에서 사서함 B로 전달합니다. 이 규칙은 작동하지만 자동화되지는 않습니다 ( '규칙 실행'버튼을 누를 때만 실행 됨). '원할 때'이메일 만 받고 싶습니다.

Rule2- Outlook에서 두 번째 규칙을 만들었습니다. 이 규칙은 사서함 A가 전자 메일 제목으로 'get_mail'이 포함 된 전자 메일을받을 때 시작됩니다.

내 목표 : rule2가 스크립트를 시작하기를 원합니다. 분명히이 스크립트는 rule1을 실행해야합니다.

결과 : 사서함 A의 모든 전자 메일이 사서함 B로 전달됩니다.

Backgroud : 나의 목표는 직장과 집 사이에 통근하면서 내 휴대폰으로 업무용 이메일을 읽는 것입니다. 내 PC (우편함 -A)는 내 전화기에서 내 PC로 이메일을 보내면 (메일 제목 get_mail) 모든 이메일을 내 전화기 (사서함 -B)로 전달합니다.

VBA를 사용하여 가능합니까? 그리고 코드는 어떻게 생겼을까 요? 스크립팅에 대한 경험은 없지만 일반적으로 PC와 소프트웨어에는 능숙합니다. 누군가 코드를 공급할 때 설치할 수 있어야합니다.

( ps 단순히 내 전화에 pop / imap 계정을 설치할 수 없습니다)

microsoft-outlook script

— 사용자 316237
소스

예, 하나의 규칙이 다른 규칙을 트리거하도록 할 수 있습니다. 작동해야하는 Outlook VBA 절차는 다음과 같습니다.

Sub RunRuleToForwardEmail(MyMail As MailItem)

    Dim st As Outlook.Store
    Dim myRule As Outlook.Rule

    ' get default store (where rules live)
    Set st = Application.Session.DefaultStore
    ' get rule
    Set myRule = st.GetRules("change_this_to_whatever_the_the_name_of_rule1_is") 'change this line
    myRule.Execute

End Sub

이 텍스트를 변경하십시오 : change_this_to_whatever_the_the_name_of_rule1_is.

Outlook VBA 프로젝트를 저장 한 후 rule2의 조치를 편집하십시오. 그런 다음 옵션 목록에서 위 스크립트를 선택할 수 있습니다.

— 가루 리네
소스

신속하게 답변 해 주셔서 감사합니다. 규칙의 이름은 실제로 'rule1'입니다. 그래서 코드의 비트를 'Set myRule = st.GetRules ( "rule1")'로 변경했습니다. 그 맞습니까? rule2에서 스크립트를 조치로 선택할 수있었습니다. 불행히도 작동하지 않았습니다. 내가 실수 했어?

— user316237 April

흠, 맞아. 나는 그것을 직접 시도했고 효과가 있었다 (그러나 나의 rule1은 단지 메일을 분류했지만 전달하지 않았다). 절차 시작 부분에이 추가 코드를 추가하십시오 MsgBox "The RunRuleToForwardEmail VBA procedure is running". 첫 번째 Dim 문 앞에 이것을 자신의 줄에 넣으십시오. 그런 다음 사용해보십시오. 코드가 제대로 실행 중이면 Outlook에 경고 메시지가 나타납니다. 이 메시지가 나타나지 않으면 해당 규칙에 문제가있는 것입니다.

— Garrulinae

성공하지 않음 :-(. 코드는 다음과 같습니다. [Link] Sub RunRuleToForwardEmail (MyMail As MailItem) MsgBox "RunRuleToForwardEmail VBA 프로 시저가 실행 중입니다"Dim st As Outlook.Store Dim myRule As Outlook.Rule Dim rl As Outlook.Rule 'get 기본 저장소 (규칙이있는 위치) Set st = Application.Session.DefaultStore 'get rule 설정 myRule = st.GetRules (rule1) myRule.Execute End Sub

— user316237

Aha-텍스트 rule1는 따옴표로 묶어야합니다 "rule1". 메시지가 여전히 나타 났을까요?

— Garrulinae

따옴표를 추가했지만 아무것도 변경되지 않았습니다. 나는 어떤 메시지도 보지 못했다. rule1에 'set flag color green'을 추가했습니다. 그리고 rule2에 '플래그 색상을 자주색으로 설정하십시오'. 제목이 get_mails 인 이메일이 도착하면이 이메일에 자주색 플래그가 표시됩니다. '확인'을 만드는 다른 방법이 있습니까?

— user316237