Hi All
I would like to attach attachments from an existing email when a reply all is executed without the need to save the attachment into a specific folder. I tried using the following code but it populates an error run time 438. Is there a way to fix this?
The macro is executed from excel.
Set myAttachment = Item.Attachments
Set OutMail = Item.ReplyAll
If myAttachment.Count >= 1 Then
With OutMail
.HTMLBody = "Hi Siew Ping, <p> $" & strPayment & " received On the " & strPaymentdate & " .<p> Thanks & Regards," & .HTMLBody
.Attachments.Add myAttachment
.Display
'.Send
End With
Else
With OutMail
.HTMLBody = "Hi Siew Ping, <p> $" & strPayment & " received On the " & strPaymentdate & " .<p> Thanks & Regards," & .HTMLBody
.Display
'.Send
End With
End If