TestEmailWithManyManyAttachments

'
'
'
' mapSess = MAPISession Control
' mapMess = MAPIMessages Control
'
'
private sub TestEmailWithManyManyAttachments()
dim Attachments() as string
dim TotAttachments as long
dim i as long
dim attPos as integer
  TotAttachments=2 ' or more
  Redim Attachments(TotAttachments)
  Attachments(1)="c:\config.sys"
  Attachments(2)="c:\autoexec.bat"
  mapSess.LogonUI = True
  mapSess.SignOn
  mapMess.SessionID = mapSess.SessionID
  mapMess.Compose
  mapMess.MsgSubject = "Some Subject"
  mapMess.MsgNoteText = "  bla bla bla bla bla"

  attPos = 1 
  
  For i = 1 To TotAttachments
	
    If Dir( Attachments(i) ) <> "" Then ' Chek that file exists
      
      mapMess.AttachmentIndex = i - 1
      mapMess.AttachmentPosition = attPos
      mapMess.AttachmentPathName = Attachments(i)      
      
      attPos = attPos + 1
    End If
  Next i
  DoEvents
  
  mapMess.Send True

  DoEvents
  mapSess.SignOff
end sub