outlook 转发附件

z22222

如题收到一份邮件里面自带附件，转发是如下代码。总是没有附件。 该如何修改代码？


   Set nItem = mlObj             '收到的邮件

   Set newMlItem = Outlook.CreateItem(olMailItem)

    With newMlItem
        If nItem.Attachments.Count > 0 Then
            For Each ATT In nItem.Attachments
                .Attachments.add  nitem.Attachments.Item(i)
            Next
        End If
        .Send
    End With

走过路过嫑错过

小白飘过，学习中