Send existing email as attachment using vba

[Crossh]

Using VBA, is there a way to send an existing email from my Inbox, as an
attachment to a new email which was created in code? I have already written
the code to find the email I want to attach. I just can't figure out how to
attach it. Thanks for your help.

 

[Dmitry Streblechenko]

MailItem.Attachments.Add SomeOtherMailItem

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Crossh]

Thanks for the quick response! I get the MailItem.Attachments.Add part.
I'm stuck on the "SomeOtherMailItem" part.
Using the following code, what would "SomeOtherMailItem" look like?

For Each objMail In objCompFolder.Items
If InStr(1, objMail.Subject, strReqID & " - ") > 0 Then
' this is the one to attach
MailItem.Attachments.Add ??????
Exit Sub
End If
Next objMail

 

[Dmitry Streblechenko]

Didn't you say that you already have code that finds the messag to be
attached?

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Dmitry Streblechenko]

And would it be objMail ?

For Each objMail In objCompFolder.Items
If InStr(1, objMail.Subject, strReqID & " - ") > 0 Then
' this is the one to attach
MailItem.Attachments.Add objMail
Exit Sub
End If
Next objMail


--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Crossh]

When I use objMail, I get an error message "Run-time error '-2147024809
(80070057':
File "the subject line of the email" does not exist.

However, if I hardcode objCompFolder.Items(2), which is the same email, it
works. Here's the code (I'm using redemption to get rid of the messages) :

blnFlag = False
For Each objMail In objCompFolder.Items
If InStr(1, objMail.Subject, rst!id_Request & " - ") > 0 Then
blnFlag = True
Exit For
End If
Next objMail

' Send Mail
Set sMailItem = CreateObject("Redemption.SafeMailItem")
Set oItem = Outlook.CreateItem(0) 'Create a new message
With sMailItem
.Item = oItem
If blnFlag Then .Attachments.Add (objMail)

 

[Dmitry Streblechenko]

Try to use parenthesis:
MailItem.Attachments.Add(objMail)

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Crossh]

Parenthesis gave the same error.

I changed the find loop instead:
For intTemp = 1 To objCompFolder.Items.Count
If InStr(1, objCompFolder.Items(intTemp).Subject, rst!id_Request & " - ")

0 Then

' this is the one to attach
blnFlag = True
Exit For
End If
Next intTemp

Now I can refence it as:
If blnFlag Then .Attachments.Add (objCompFolder.Items(intTemp))

for some reason, this works. Thanks for your efforts, anyway!

 

[Dmitry Streblechenko]

Since you are using late binding in VB, for whatever reason it decided to
pas the default property of the MailItem object, which happens to be
Subject. Attachments.Add saw a string value and assumed it is a file path,
You really need to somehow force the actual object to be passed.
Since you are using VBA, you can dim the object as MailItem:

dim Mail as MailItem
blnFlag = False
For Each objMail In objCompFolder.Items
If InStr(1, objMail.Subject, rst!id_Request & " - ") > 0 Then
set Mail = objMail
MailItem.Attachments.Add(Mail)
Exit For
End If
Next objMail

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-

 

[Crossh]

This doesn't work, same error message.