Macro written in 32 bit System - Not working in 64 bit System[ Win 10 and Office 2019 Prof]|Page 2|VBA & Macros|Excel Forum|My Online Training Hub

Hello,

new macro was made to send email through Outlook

the macro will analyze each line of the sheet where the mailing lists are

email will be sent to each recipient on each line

only files that are on the corresponding line will be attached to the recipient of each line



if you want to add more than one attachment to the same email, you just have to follow the example I left it ... that is, you have to write as follows

in column ("D"), in the recipient's row: 

file1 path#file2 path#file3 path

C:\Users\...\image1.jpg#C:\Users\...notepad.txt#C:\Users\...\pdf file.pdf



if it's just an email it's just: C:\Users\...\pdf file.pdf

in short, each line is an email with its attachments

Miguel,

Hello,

sorry, my mistake

change in module1 where the following part is, replace the line with this one in red

If x > 0 Then
     For a = LBound(ArrInput) To UBound(ArrInput) - 1
         ArrOutput = Split((ArrInput(a)), "#")
         On Error Resume Next
         checkD = ArrOutput(0)
         On Error GoTo 0
         If checkD <> "" Then
             If FileExist(checkD) = False Then GoTo nextX:
                 outlEmail.Attachments.Add checkD
         End If
nextX:

attached corrected file

Miguel,

Hello,

update complete, file attached

you just need to do the following

when you go to write the email addresses, whether in column ("A") send to, or in column ("B") send CC, or in column ("C") send BCC, 
insert a semicolon ";" between each email address

example in range ("A2"): firstEmail@email.com;secondEmail@email.com;thirdEmail@email.com

for ranges in columns ("B") and ("C") it is the same situation



Miguel,