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 letters | BA | BB | BC | BD | BE | BF | BG | BH | BI | BK | BL | BM | BN | BO | BP | BQ | BR | BS | BT | BU | BV |
| row # | name | bday | january | march | april | may | June | july | aug | sep | oct | nov | dec | SUBJECT --> | sub here | mail body--> | mail body here | FILE 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:
