我试图将 Outlook 任务分配给另一个人，但任务每次都分配给我

Question

我在编码方面完全是新手，我在网站上搜索了如何做事，并拼凑了一些代码，从我创建的用于跟踪工作负载请求的用户表单创建 Outlook 任务。 我将团队成员全部列为团队邮箱中的类别，因此将其添加到表单中，以便更简单地识别分配的人员，但希望任务进入我们的共享邮箱而不是分配的个人。我尝试过手动输入邮箱地址并将其包含在工作簿的单元格中并对其进行调用，但每次任务都只有我来完成

这是我在用户表单上“创建任务并提交”的代码，用于将信息添加到 Excel 工作簿并创建 Outlook 任务：

Private Sub CommandButton3_Click()
Dim OutApp As Outlook.Application
Set OutApp = CreateObject("Outlook.Application")

Dim OutTask As Outlook.TaskItem
Set OutTask = OutApp.CreateItem(olTaskItem)

Dim myRecipient As Outlook.Recipient
Set myRecipient = OutTask.Recipients.Add("[email protected]")
    myRecipient.Type = olTo
    myRecipient.Resolve
If myRecipient.Resolved Then
With OutTask
    .Subject = Programme
    .DueDate = DueDate
    .Status = 1
    .Importance = 1
    .ReminderSet = True
    .ReminderTime = DueDate
    .Categories = Contact
    .Body = SubDetails
    .Save   
End With
End If
Set OutTask = Nothing
Set OutApp = Nothing
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Workload")

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

If Trim(Me.Programme.Value) = "" Then
Me.Programme.SetFocus
MsgBox "Please enter Programme"
Exit Sub
End If


With ws
'
.Cells(iRow, 1).Value = Me.Programme.Value
.Cells(iRow, 3).Value = Me.SubType.Value
.Cells(iRow, 4).Value = Me.SubDetails.Value
.Cells(iRow, 13).Value = Me.DueDate.Value
.Cells(iRow, 11).Value = Me.Contact.Value
.Cells(iRow, 8).Value = Me.RegContact.Value
'
End With

Me.Programme.Value = ""
Me.SubType.Value = ""
Me.SubDetails.Value = ""
Me.DueDate.Value = ""
Me.Contact.Value = ""
Me.RegContact.Value = ""
Me.Programme.SetFocus

结束子

我非常确定可能有一种更简单的方法来解决这个问题，但是除了任务进行的地方之外，上述方法完全按照我想要的方式工作。有人能指出我哪里出错了吗？预先感谢