• Home
 · 
• Internet/HTML
 · 
• TestEmailWithManyManyAttachments

TestEmailWithManyManyAttachments

You want to send 10 or more files using your VB program but you always get an error, well not any more, here is the solution. Enjoy!

Assumes
MAPISession control, MAPIMessages control

Returns
nothing

Side Effects
I dont think so!

Rate TestEmailWithManyManyAttachments

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'
'
'
' 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