Reply To: Accessing attachments

[Support 2]

The following sample code which will display the composing message’s attachment name(s) in a message box. It will also allow you to save an attachment but you will need to uncomment the ItemAttachmentSaveAs ‘save’ code and provide the target file name (this code would have to be updated to handle multiple filenames and check whether the file already exists).

  dim iMsgID
  dim iAttachCounter
  
  Const CAPTION = "Formativ Business Solutions"  
  
  ' Get the composing message ID through TOKEN
  iMsgID = GroupWise.ItemMessageIDFromView  
  
  ' Make sure we have a composing message selected
  if (iMsgID = "X00") then
    iAttachCounter = GroupWise.ItemAttachmentGetCount(iMsgID)
    
    ' Does the message have any attachments?
    if (iAttachCounter > 0) then
      ' Loop through attachments to get the names
      for x = 0 to (iAttachCounter -1)
        call msgbox (GroupWise.ItemAttachmentGetName(iMsgID, x), vbInformation, CAPTION)
        
        ' To save the attachment(s), you need to provide the file name(s) and have to check whether 
        ' the file already exists
        'call GroupWise.ItemAttachmentSaveAs(iMsgID, x, "c:test.txt")
      next
    else
      call msgbox("No attachments found.", vbInformation, CAPTION)
    end if
  else
    call msgbox("Select a composing message to display the attachment names.", vbInformation, CAPTION) 
  end if

Hope this helps.

Regards,

Advansys Support