Send Multiple Attachments Through Outlook Using Excel Template

hi everyOne..

Glad to be on this Site.. it seems awesome already..

I am using this Macro from this thread "Excel template with macro for sending mails and attahment thru outlook"

HTML Code:

---

http://www.excelfox.com/forum/f2/excel-template-macro-sending-mails-attahment-thru-outlook-142

---

/ however I am trying to send multiple attachments on the same email --so how can I modify this code to support that ?



https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA

Sonny, welcome to ExcelFox. Try this for sending Outlook Mail with multiple attachments.

Hi Excel Fox.

Thanks a lot for this.. this works wonderfully.. I am very thankful to all who created this. Please continue the good work..

sorry however when I tried this on Office 2010 with .HTML file attachments (5)I keep getting a subscript error or Bad File name or Number..
are there any limitations to the file attachments?
thanks ...

Are you sure the extension of the files is .HTML? Or should it be .htm?

I apologise for jumping the gun earlier. but this still not working.. I keep getting a

HTML Code:

---

BAD FILE NAME OR NUMBER

---

error now even for normal files.
So I moved the sheet1 code to the module to see if that would help and after debugging I still get the error on

HTML Code:

---

If Len(Dir(Trim(Split(strAttachmentPath, ";")(lngLoop)))) <> 0 Then

---

Am I doing something incorrect?


This however works for a single file but not for multiple files...

Can you please check and confirm once again that it is working for 1 file, but not for more than 1 file

OK I got it to work.. I think there is a problem with the "|" part of the code. So I just replaced it with a ";" and it worked .
the code looks like this.

Code:

---

  'Add attachments to the message.
        For lngLoop = LBound(Split(strAttachmentPath, ";")) To UBound(Split(strAttachmentPath, ";"))
        If Not strAttachmentPath = "" Then
            If Len(Dir(Trim(Split(strAttachmentPath, ";")(lngLoop)))) <> 0 Then
                Set objOutlookAttach = .Attachments.Add(Trim(Split(strAttachmentPath, ";")(lngLoop)))
            Else
                MsgBox "Unable to find the specified attachment '" & Trim(Split(strAttachmentPath, ";")(lngLoop)) & "'. Sending mail anyway."
            End If
        End If
        Next lngLoop

---