플래그가 작동하지 않는 이메일 보내기

Question

수신자 플래그가있는 이메일을 보내는 Outlook 2007 매크로가 있지만 더 이상 작동하지 않습니다.

실수로 코드를 변경했지만 더 이상 작동하지 않습니다.

받는 사람이 수행 할 전자 메일을 보지 못하고 전자 메일 목록에 빨간색을 표시하지 않습니다.

Sub fff() 
    Dim outApp As Object 
    Dim OutMail As Object 

    Dim datDue As Date 
    datDue = DateAdd("d", 7, Date) 


    Set OutMail = outApp.CreateItem(0) 

    With OutMail 
     .To = "me@yyy.com" 
     .Subject = "test" 
     .HtmlBody = "msg" 

     .Importance = olImportanceHigh 
     .FlagStatus = olFlagMarked 
     .FlagRequest = "Follow up" 
     .ReminderTime = datDue & " 17:00 PM" 
     .ReminderOverrideDefault = True 
     .ReminderSet = True 
     .TaskStartDate = Date 
     .TaskDueDate = datDue 
     .Save 
     .Send 

    End With 

End Sub 

Answer 1

귀하의 변수 OutApp 유용하지 않고 Outlook에서이 직접 사용으로 Application을해야합니다.

(2013 Outlook을) 난 그냥 그 코드를 테스트하고 나를 위해 잘 작동 :

Sub AssignTask() 
Dim myItem As Outlook.TaskItem 
Dim myDelegate As Outlook.Recipient 
Set MyItem = Application.CreateItem(olTaskItem) 
MyItem.Assign 
Set myDelegate = MyItem.Recipients.Add("Eugene Astafiev") 
myDelegate.Resolve 
If myDelegate.Resolved Then 
    myItem.Subject = "Prepare Agenda for Meeting" 
    myItem.DueDate = Now + 30 
    myItem.Display 
    myItem.Send 
End If 
End Sub 

대체하는 것을 잊지 마세요 '

Sub wittman() 
    Dim OutMail As MailItem 
    Dim datDue As Date 

    datDue = DateAdd("d", 7, Date) 
    Set OutMail = Application.CreateItem(0) 

    With OutMail 
     .To = "test@mail.com" 
     .Subject = "test" 
     .HTMLBody = "msg" 

     .Importance = olImportanceHigh 
     .FlagStatus = olFlagMarked 
     .FlagRequest = "Follow up" 
     .ReminderTime = datDue & " 17:00 PM" 
     .ReminderOverrideDefault = True 
     .ReminderSet = True 
     .TaskStartDate = Date 
     .TaskDueDate = datDue 
     .Save 
     .Send 
    End With 'OutMail 
End Sub 

Answer 2

당신은 대리인에 작업을 보낼 수 있습니다 Eugene Astafiev '에게이 예제를 실행하기 전에 올바른받는 사람 이름을 지정하십시오.

또한 MailItem 개체를 작업으로 표시하고 개체에 작업 간격을 할당하기 위해 MailItem 클래스의 MarkAsTask 메서드를 사용할 수 있습니다. 이 메서드를 호출하면 MarkInterval에 제공된 값에 따라 여러 다른 속성의 값이 설정됩니다. MarkInterval을 지정하여 설정 한 속성에 대한 자세한 내용은 OlMarkInterval Enumeration을 참조하십시오.

How to set a flag to follow up using VBA 문서가 도움이 될 수 있습니다.