Sending multiple EMails thru excel?

B

Bigredno8

I have a spreadsheet for our baseball league with parents email
address,is there a way to select all the email address cells and send
one mass email to all addresses,I can only select one at a time,

Thanks
Steve
 
T

topola

I think there is hope for your baseball league. Try using this macro
procedure:

Sub Mail_workbook()
Dim Uzytkownik, Adresy As String
Dim i As Integer
Uzytkownik = Application.UserName
Range("a1", ActiveCell.SpecialCells(xlLastCell)).Select
i = 0

For Each cell In Selection
If InStr(cell, "@") > 0 Then
ActiveWorkbook.SendMail cell.Text, "Topic Title"
Debug.Print cell.Text
If i = 0 Then
Adresy = cell.Text
Else
Adresy = Adresy & ", " & cell.Text
End If
i = i + 1
End If
Next

' ActiveWorkbook.SendMail Adresy, "Topic Title"
' This command in case you'd like to sent one group e-mail
' but breaks when there is wrong address within

MsgBox Uzytkownik & Chr(10) & Chr(10) & _
"Number of sent messages: " & i & Chr(10) & Chr(10) & _
"Addresses are: " & Adresy
End Sub
 
Top