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 " and i run the macro, it will email with a generic message. Another example, if I am on cell C4 and it conaitns the text " it will send the generic text email to . 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

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)
www.rondebruin.nl



"Steven" wrote in message ...
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 " and i run the macro, it will email with a generic message.
Another example, if I am on cell C4 and it conaitns the text " it will send the generic text email to
. Any ideas?

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

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

Thanks Ron