Suprime un archivo adjunto de la recopilación.
Para VBScript, el argumento para este método puede ser un índice numérico (númElem) o un nombre de visualización (nombreVisualización). Para Perl, el argumento debe ser un índice numérico.
Puede utilizar los métodos Count e Item para localizar el objeto Attachment correcto antes de llamar a este método.
VBScript
attachments.Delete númElem attachments.Delete nombreVisualización
Perl
$attachments->Delete(númElem);
VBScript
' En
este ejemplo se da por supuesto que hay, como mínimo, ' 1 campo de archivo de datos
adjuntos en este tipo de registro y,
' como mínimo, un archivo de datos adjuntos asociado al registro.
' NOTA: Para suprimir un archivo de datos adjuntos, la entidad debe tener un estado
' editable -- consultar más arriba.
set currentSession = GetSession
set attachFields = AttachmentFields
set attachField1 = attachFields.Item(0)
set theAttachments = attachField1.Attachments
If Not theAttachments.Delete(0) Then
OutputDebugString "Error deleting the attachment."
End If
Perl
# En este ejemplo se da por supuesto que
hay, como mínimo, # 1 campo de archivo de datos adjuntos y,
# como mínimo, un archivo de datos adjuntos asociado al registro.
# NOTA: Para suprimir un archivo de datos adjuntos, la entidad debe tener un estado
# editable -- consultar más arriba.
# Para este registro de entidad, obtener la recopilación de todos los campos de
# archivos de datos adjuntos
$attachfields = $entity->GetAttachmentFields();
# Trabajar con el primer campo de archivo de datos adjuntos
$attachfield1 = $attachfields->Item(0);
# Para este campo de archivo de datos adjuntos, obtener la recopilación de todos
# sus archivos de datos adjuntos
$attachments = $attachfield1->GetAttachments();
# Suprimir el primer archivo de datos adjuntos
if (!$attachments->Delete(0)) {
$session->OutputDebugString("Error deleting attachment from record.\n");
}