Attach/detach - thanks!

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Your post helped me today! I did a much simpler thing though:

Dim AttName As String
Dim att As NotesEmbeddedObject
Dim obj As NotesEmbeddedObject
Dim outlst_att List As NotesEmbeddedObject
Forall attached In tatt.EmbeddedObjects
AttName = attached.Name
filepath = "C:\Temp\" + attached.Name
If Not attached Is Nothing Then
HasAtt = True
If attached.Type = EMBED_ATTACHMENT Then
'Detach to temp directory
Call attached.extractfile(filepath)
'Attach to email
Set obj = rtitem.embedobject(EMBED_ATTACHMENT,"",filepath)
Call rtitem.AppendText(newline)
Kill filepath
End If
End If
End Forall

Feedback response number WEBB8Z5PW3 created by ~Phil Ekavitch on 10/16/2012