multiple attachments with aspmail 2

[mok44]

I am using aspmail 4, with Access XP, and calling sendmail function from a form. The function presents an attachment dialog box where user can browse and attach documents. However I have been able to do only a single attachment to each email; is there a way to do more than 1 attachmment per email using some sort of seperator like ";"? Or do I have to change my code?
thanks.

 

[Zion7]

I'm not familiar with aspmail 4 but, if you do consider changing your code, you can try automation with outlook, which will allow several attachments to be sent with the email.

 

[mok44]

Thanks Zion7 for your response.
I am not sure Outlook would work in this case as I am using ASPMail to broadcast emails to multiple recipients.
Does Outlook allow you to send emails to multiple recipients?

 

[Zion7]

Absolutely.

Make a refrence to Microsoft Outlook 11.0 Object Library

sEmail, is a semi colon delimited string of email addresses.
sEmail = "johndoe@Rogers.com; janedoe@aoL.com;tomthumb@AOL.com"

I have a multi-select listbox where the user selects attachments to add

Sub EmailAttachment(sEmail As String)
Dim appOutLook As Outlook.Application, itm As Object, x As Integer

   Set appOutLook = CreateObject("Outlook.Application")
   Set itm = appOutLook.CreateItem(olMailItem)

   With itm
      .To = sEmail
      .cc = Nz(txtCC, "")
      .BCC = Nz(txtBCC, "")
      .Subject = Nz(txtSubject, "")
      .Body = Nz(txtMessage, "")
          For x = 0 To lstFiles.ListCount - 1
              If lstFiles.Selected(x) = True Then
                  .Attachments.Add lstFiles.ItemData(x)
              End If
           Next x
      .Display
   End With

   Set appOutLook = Nothing
   Set itm = Nothing

End Sub

 

[mok44]

Great!
Thanks Zion7, I will give it a shot and let you know how it goes.
Have a star for following up!