sending a singular email by selection

S

Steven

Hello all

I have the following code below from Ron De Bruin's website. What i want is to alter it slightly so that... for example... If i am on Cell C3 and it contains "[email protected]" and i run the macro, it will email [email protected] with a generic message. Another example, if I am on cell C4 and it conaitns the text "[email protected]" it will send the generic text email to [email protected]. Any ideas

Sub TestFile2(
Dim olApp As Outlook.Applicatio
Dim olMail As MailIte
Dim cell As Rang
Application.ScreenUpdating = Fals
Set olApp = New Outlook.Applicatio

If cell.Offset(0, 1).Value <> "" The
If cell.Value Like "*" And cell.Offset(0, 1).Value = "yes" The
Set olMail = olApp.CreateItem(olMailItem
With olMai
.To = cell.Valu
.Subject = "Reminder
.Body = "Dear " & cell.Offset(0, -1).Value & vbNewLine & vbNewLine &
"Generic Email Message Here
.Send 'Or use Displa
End Wit
Set olMail = Nothin
End I
End I
Set olApp = Nothin
Application.ScreenUpdating = Tru
End Su
 
R

Ron de Bruin

Use this then

Sub TestFile2()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Application.ScreenUpdating = False
Set olApp = New Outlook.Application

If ActiveCell.Value Like "*@*" And ActiveCell.Offset(0, 1).Value = "yes" Then
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.To = ActiveCell.Value
.Subject = "Reminder"
.Body = "Dear " & ActiveCell.Offset(0, -1).Value & vbNewLine & vbNewLine & _
"Generic Email Message Here"
.Send 'Or use Display
End With
Set olMail = Nothing
End If
Set olApp = Nothing
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)




Steven said:
Hello all,

I have the following code below from Ron De Bruin's website. What i want is to alter it slightly so that... for example... If
Click to expand...
i am on Cell C3 and it contains "[email protected]" and i run the macro, it will email [email protected] with a generic message.
Another example, if I am on cell C4 and it conaitns the text "[email protected]" it will send the generic text email to
[email protected]. Any ideas?
 
Top