S
Steve
How do I use SendMail when I have multiple addressees? The following
produces valid looking email addresses as you would type them in outlook but
the result is undeliverable.
....
Worksheets("emailAddresses").Activate
ActiveSheet.Range("A2").Select
While Selection.Value & "" <> ""
If MailAddr & "" = "" Then
MailAddr = Selection.Value
Else
MailAddr = MailAddr & ", " & Selection.Value
End If
Selection.Offset(1).Select
Wend
ActiveWorkbook.SendMail Recipients:=MailAddr, Subject:=wbName
produces valid looking email addresses as you would type them in outlook but
the result is undeliverable.
....
Worksheets("emailAddresses").Activate
ActiveSheet.Range("A2").Select
While Selection.Value & "" <> ""
If MailAddr & "" = "" Then
MailAddr = Selection.Value
Else
MailAddr = MailAddr & ", " & Selection.Value
End If
Selection.Offset(1).Select
Wend
ActiveWorkbook.SendMail Recipients:=MailAddr, Subject:=wbName