Outlook mail from Excel

T

Tufail

Hi,
someone can help me, now i am using follow code for outlook mail, next i
want use this code with selected range like C1:E50 (but in this code i don't
want use-->Bonus = Format(cell.Offset(0, 1).Value, "$0,000."), i still want
use cell A=customer name & cell B=maill address where i want send mails and
range would be C1:E50
hope you could understand
-------------------------------------------------------------
Sub SendEmail()
Dim cell As Range
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Msg As String
Dim HLink As String
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If cell.Value Like "*@*" Then
'Get the data
Subj = "Your Annual Bonus"
Recipient = cell.Offset(0, -1).Value
EmailAddr = cell.Value
Bonus = Format(cell.Offset(0, 1).Value, "$0,000.")


'Compose message
Msg = "Dear " & Recipient & "%0A"
Msg = Msg & "%0A" & "I am pleased to inform you that your annual bonus
is "
Msg = Msg & Bonus & "%0A"
Msg = Msg & "%0A" & "Lubna Tufail"
Msg = Msg & "%0A" & "President"

'Build hyperlink
HLink = "mailto:" & EmailAddr & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
'Send it
ActiveWorkbook.FollowHyperlink HLink
Application.Wait (Now + TimeValue("0:00:02"))
SendKeys "%s", True
End If
Next
End Sub

----------------------------------------------------------------
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top