Perl
# This example assumes that there is at least # one attachment field associated with the record # For this entity record, get the collection of all # attachment fields $attachfields = $entity->GetAttachmentFields(); # Work with the first attachment field $attachfield1 = $attachfields->Item(0); # For this attachment field, get the collection of all # its attachments $theAttachments = $attachfield1->GetAttachments(); # Add the designated file and description to the # attachments field if (!$theAttachments->AddAttachment("c:\\attach1.txt","attachment description")) { $session->OutputDebugString("Error adding attachment to record.\n"); }