attach attachments from an existing email when a reply all is executed

[hrq]

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

[June7]

I don't think can avoid first saving out to folder.

[hrq]

oh mann.. anyways thanks for the help.

[Grade4.2]

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

To attach attachments from an existing email when a reply all is executed using VBA, you can use the Attachments property of the MailItem object, which represents an email message.

Here is an example of how you can do this:

Sub ReplyAllWithAttachments()
    Dim objOutlook As Outlook.Application
    Set objOutlook = New Outlook.Application
' Get the currently selected email in Outlook
    Dim objMail As Outlook.MailItem
    Set objMail = objOutlook.ActiveExplorer.Selection.Item(1)
' Create a new email for the reply
    Dim objReply As Outlook.MailItem
    Set objReply = objMail.ReplyAll
' Loop through the attachments in the original email
    Dim objAttachment As Outlook.Attachment
    For Each objAttachment In objMail.Attachments
        ' Attach each attachment to the reply email
        objReply.Attachments.Add objAttachment
    Next objAttachment
' Show the reply email so the user can edit it and send it
    objReply.Display
End Sub

[June7]

Okay, looks like I was wrong. Hope OP comes back to view.

[Grade4.2]

After testing the code I realized I made a mistake. I had a similar macro that I modified without any syntax errors which lead me to believe it was the right code.

I apologize for any inconvenience caused.

[hrq]

After testing the code I realized I made a mistake. I had a similar macro that I modified without any syntax errors which lead me to believe it was the right code.

I apologize for any inconvenience caused.

no worries man! appreciate the effort. I heed June7's advice by creating a folder for it. And it works perfectly.