email by rows

[DaleL]

In my work book i have a form that calls the email this is where i ge
the error .publish from

also when i changed the email address coulmn from B to E that is when
only get headers in the mail when i use B it all works
how can i change the email address coulmn from B to E and also use ti
in my work book

Dale

 

[Ron de Bruin]

Hi Dale

Ash.Range("A1:L100").AutoFilter Field:=2,
It filter on column B
Change 2 to 5(that's E)

Send the file to me Dale if you can't get it to work

 

[DaleL]

I got the script to work I figured out the header part and also that i
you have the same address twice it will send 2 emails but each mai
will have multiple lines in it that was part of my problem because
was testing it with my email account....

new problem now to fix

I have a form that pops up when you click on an option button it let
you do stuff like add a user or edit a user or send a mass mail t
every one in the list or do the row by row mail when you click on th
row by row button this is what is behind it

Private Sub ob2_Click()
' Send a Volunteer Status Update
Unload Me
Application.Run "Send_Row"
End Sub

when I use this to send the row by row email that is where I get th
.Publish (True) error if I send it from the main sheet and use too

macro>Send_Row .. then it works fine

any idea how to get the button to work ???

Dale

 

[DaleL]

i have also tried to cal it using Dim Nsh As Worksheet with no result
anyone care to try there hand at it ??

Dal

 

[Ron de Bruin]

Hi Dale

Send (private) me a small example workbook and I will look at it