Visual Basic 6.0
Visual Basic 6.0
Remove a Single Attached Message from an Email
See more Email Object Examples
Demonstrates the Chilkat Email.RemoveAttachedMessage method, which removes the Nth message/rfc822 sub-part (an attached email) from the message. Indexing begins at 0. This example attaches an email, removes it, and prints the attached-message count before and after.
Background: Attached messages (forwarded emails carried as
message/rfc822 parts) are counted and indexed separately from ordinary file attachments and related items. RemoveAttachedMessage targets just one nested email by index — useful, for example, when trimming a bundled digest or stripping a forwarded original before re-sending.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' Demonstrates the RemoveAttachedMessage method, which removes the Nth message/rfc822
' sub-part (attached email) of the email. The index is zero-based.
' Build an inner email and attach it to an outer email.
Dim innerEmail As New ChilkatEmail
innerEmail.Subject = "Embedded message"
innerEmail.From = "alice@example.com"
Dim email As New ChilkatEmail
email.Subject = "Has an attached message"
success = email.AttachEmail(innerEmail)
If (success = 0) Then
Debug.Print email.LastErrorText
Exit Sub
End If
Debug.Print "NumAttachedMessages before = " & email.NumAttachedMessages
' Remove the first attached message (index 0).
email.RemoveAttachedMessage 0
Debug.Print "NumAttachedMessages after = " & email.NumAttachedMessages