lifeson
09-01-2008, 08:30 AM
I use the following to generate an email from a list of addresses
With ws
'loop through list
For i = 2 To r
'get e mail address
eMail = ws.Cells(i, "V").Value
tVenue = ws.Cells(i, "T").Value
With MItem
.To = eMail
.Subject = "test"
'.Attachments.Add (fPath & "\" & fname)
.Body = msg
.Importance = 2 'high
.Display
'NOTE: To actually send the emails, use .Send instead of .Display
'.send
End With 'mail item
Next i
End With 'ws
Is there a way I can create "Voting buttons" on the email item
i.e. "Accept; reject" using vba? :think:
With ws
'loop through list
For i = 2 To r
'get e mail address
eMail = ws.Cells(i, "V").Value
tVenue = ws.Cells(i, "T").Value
With MItem
.To = eMail
.Subject = "test"
'.Attachments.Add (fPath & "\" & fname)
.Body = msg
.Importance = 2 'high
.Display
'NOTE: To actually send the emails, use .Send instead of .Display
'.send
End With 'mail item
Next i
End With 'ws
Is there a way I can create "Voting buttons" on the email item
i.e. "Accept; reject" using vba? :think: