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
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
Go here:
http://www.rondebruin.nl/mail/add-in.htm
HTH
"Bigredno8" <[email protected]> wrote
in message news:[email protected]...
>
> 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
>
>
> --
> Bigredno8
> ------------------------------------------------------------------------
> Bigredno8's Profile:
> http://www.excelforum.com/member.php...o&userid=17162
> View this thread: http://www.excelforum.com/showthread...hreadid=479664
>
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
---
Tomek Polak, http://vba.blog.onet.pl
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks