existing macro to send emails to multiple recipents needs fix

Hi all,

I have a macro in place that sends emails based on hold codes (column F) to one email address identified in column K however I need add one more field to be addedd as "TO" and three "CC" fields on the email.

Also, I need to use the default signature while sending emails.

Could someone kindly help me with this?

I have attached my template with code on this thread.

Regards,
Kiran

Put this in Master Sub

With Tbl_HoldRep
    ToAdd = .Cells(u, 11).Value
    ToAdd = ToAdd & IIf(.Cells(u, 13).Value <> "", ";" & .Cells(u, 13).Value, "")
    ToAddcc = .Cells(u, 14).Value
    ToAddcc = ToAddcc & IIf(Tbl_HoldRep.Cells(u, 15).Value <> "", ";" & .Cells(u, 15).Value, "")
    ToAddcc = ToAddcc & IIf(Tbl_HoldRep.Cells(u, 16).Value <> "", ";" & .Cells(u, 16).Value, "")
End With

This will preserve the default signature if you have one set up in Outlook for new emails.
Sub Send_mail() procedure

        '.cc =
        'Message
        .Display    'Display first to populate the default signature
        .Body = MailBodyStrg & .Body
        'Read receipts turned off
        .ReadReceiptRequested = False
        
        '.Send

Thanks Alpha,

I tried your suggestions but unfortunately I could not have the signature added (may be because, I am not using HTML format for my emails) also,
whils .send is enabled, outlook is unable to send Emails.

I have a signature setup for my outlook

Please help

It works for me using your workbook. My Outlook is set up for plain text. You have to .Display first (before adding the email body text) for it to get the default signature.

Also, make sure the email address in K2 is only one address with no trailing semicolon ;

        '.cc =
        'Message
        .Display    'Display first to populate the default signature
        .Body = MailBodyStrg & .Body
        'Read receipts turned off
        .ReadReceiptRequested = False
        
        .Send

Thanks a lot, its working fine now