VB (outlook 2010)에서 주 단위로 작업 일수를 얻으려면 어떻게해야합니까?

Question

WW.D 형식으로 주와 요일이 포함 된 Outlook을 사용하여 매일 전자 메일을 보냅니다. 월요일에 작업 주를 시작하므로 오늘과 같이 50.2가됩니다. VB를 사용하여 프로그래밍 방식으로이 프로그램을 추가하려면 어떻게해야합니까?

Sub MakeItem() 
    Dim objMail As MailItem 

    Set newItem = Application.CreateItemFromTemplate("C:\Users\Update.oft") 
    ' Work week number 
    WW = 50.2 

    ' Setup Subject replacing the <SHIFT> 
    newItem.Subject = Replace("<WorkWeek> Shift Passdown ", "<WorkWeek>", WW) 
    newItem.Display 

    Set newItem = Nothing 
End Sub 

Answer 1

당신은 이런 식으로 작업을 수행 할 수 있습니다이 VB의 전망 버전에서 작동하지 않습니다

Dim cal As New GregorianCalendar() 
Dim week As Integer = cal.GetWeekOfYear(Date.Now, CalendarWeekRule.FirstFullWeek, DayOfWeek.Monday) 
Dim day As Integer = cal.GetDayOfWeek(Date.Now) 
Dim workDayId As String = String.Format("{0:00}.{1}", week, day)