by Demetrios Pyrenis (1 Submission)
Category: Internet/HTML
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: (2 Votes)
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
Code Returns
nothing
Side Effects
I dont think so!
'
'
'
' 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