I need help big time! ! ! Click here to help me !

eric86vabeach

New Member
Joined
Jan 29, 2014
Messages
23
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
Button
<here></here>
column lettersBABBBCBDBEBFBGBHBIBKBLBMBNBOBPBQBRBSBTBUBV
row #emailnamebdayjanuarymarchaprilmayJunejulyaugsepoctnovdecSUBJECT -->sub heremail body-->mail body hereFILE att. ->file source here
3
4
5
6
7
8

<tbody>
</tbody>

cell BA3 i have code "=IF(MONTH(BC3)=1,AH3,"")"
in cell BE3 i have code"=IF(MONTH(BC3)=2,AH3,"")"
and so on till cell "BO3"

and then the code would be copy till row 100 or so


on the top of cells BD:BO there would a button that sends email only to the emails that are in that column and you would be able to change the email by typing in the row that is sent so the email would be in cell "BT" also if i wanted to add a file as an att. i would be in cell "BV"


ok i know this is a lot of work i dont think 1 person can do it all so if one person can help with one thing and maybe we can get this all done together thanks all :)





this code would help me



Sub sendemail()
'
' sendemail Macro
'
Dim olapp As Outlook.Application
Set olapp = CreateObject("Outlook.Application")
Dim olMail As Outlook.MailItem
Dim myAttachments As Outlook.attachments
Set olMail = olapp.CreateItem(olMailItem)
olMail.To = Sheet5.Range("?") 'im not sure
olMail.Subject = Sheet5.Range("AZ")
olMail.body = Sheet5.Range("ba")
olMail.Send




End Sub
Sub massemail2()


'
' massemail2 Macro
'

row_number = 2


Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim full_name As String
Dim promo_code As String
'mail_body_message = Sheet5.Range("ba")
full_name = Sheet5.Range("?" & row_number) & " " & 'im not sure Sheet5.Range("h" & row_number)
'promo_code = Sheet5.Range("bz" & row_number)
mail_body_message = Replace(mail_body_message, "replace_name_here", full_name)
mail_body_message = Replace(mail_body_message, "promo_code_replace", promo_code)
'MsgBox mail_body_message
Call sendemail(Sheet4.Range("L" & row_number), "this is a test email", mail_body_message)
Loop Until row_number = 6

'need help with this part also the loop until blank row would help also

End Sub
 
Last edited:

Some videos you may like

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.

Watch MrExcel Video

Forum statistics

Threads
1,118,121
Messages
5,570,307
Members
412,318
Latest member
angoeyuan
Top