Send multiple recipients?!

[#1]

In macro , I not use nprinting

how to sending report to multiple recipients??

(not objEmail.To = "recipient1@gmail.com; recipient2@gmail.com; recipient3@gmail.com")

I need to send automatic from table, or xlsx file?

[agomes1971]

Hi,

see this

Sending Emails using Macro

using macro to send email with attachments

Automated Excel Export and Email Macro

HTH

André Gomes

[#3]

Tnx agomes1971 , but how I seen, All links show how to send mail to one recipients, I need how to send mail to more recipients(30 or 50),
Because of this, I need a way to import recipients from table, or XLSX file?

[saimahasan]

you can store the email ids in an excel file and use that file.

Fetch the field in the variable in macro by using

set Email = ActiveDocument.Fields("EmailID").GetPossibleValues

val = Email.Count

for i=0 to val-1

TO_ADDR = Email(i).text & ";"

now use this in your objEmail.To as

objEmail.To = "" & TO_ADDR & ""

[#5]

tnx a lot saimahasan ,
that it looks like as if it could be that what I was looking for, but I'm relatively new to QV, can you more verbose example, to write. Please.

This objEmail.To = "" & TO_ADDR & "" copy the part where we define who is sent, the message subject, body, etc., but, I have a dilemma

set Email = ActiveDocument.Fields("EmailID").GetPossibleValues

val = Email.Count

for i=0 to val-1

TO_ADDR = Email(i).text & ";"

What is "EMAILID"?

and

"Fetch the field and in the macro variable by using" does that mean that I create a variable, for example,

vEmails = "D:\emails.xlsx"  //with list email adress recepients in to emails.xlsx file

and what?

[saimahasan · Accepted solution]

Please refer attached qvw.

[#7]

Tnx a lot saimahasan. Yes, that is what I need.
Works perfect.