Sending mail to different mail address based on cell value
 

Hi

I need to add code to this below, basically, if a certain cell value = 00M
then send to one email address and if a certain cell value = 00C send to a
different email address.

An ideas?

Many thanks


Sub Email_Memo()
Range("B2:M34").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 75
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWorkbook.SendMail "),
("Memo From Sto ") & Sheets("Sheet1").Range("H4").Value
MsgBox "Your details have been sent", vbInformation, "PAYROLL MEMOS"
ActiveWindow.Close SaveChanges = True
Range("A1").Select

End Sub

Sending mail to different mail address based on cell value
 

see below ....

"Duncan" wrote:

Hi

I need to add code to this below, basically, if a certain cell value = 00M
then send to one email address and if a certain cell value = 00C send to a
different email address.

An ideas?

Many thanks


Sub Email_Memo()
Range("B2:M34").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 75
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With

IF Worksheets("???").Range("???")="OOM" THEN

ActiveWorkbook.SendMail "),
("Memo From Sto ") & Sheets("Sheet1").Range("H4").Value

ELSEIF Worksheets("???").Range("???")="OOC" THEN

ActiveWorkbook.SendMail "),
("Memo From Sto ") & Sheets("Sheet1").Range("H4").Value

END IF


MsgBox "Your details have been sent", vbInformation, "PAYROLL MEMOS"
ActiveWindow.Close SaveChanges = True
Range("A1").Select

End Sub

Sending mail to different mail address based on cell value
 

double postiong - see my reply to your earlier ...

"Duncan" wrote:

Hi

I need to add code to this below, basically, if a certain cell value = 00M
then send to one email address and if a certain cell value = 00C send to a
different email address.

An ideas?

Many thanks


Sub Email_Memo()
Range("B2:M34").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveWindow.DisplayGridlines = False
ActiveWindow.Zoom = 75
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWorkbook.SendMail "),
("Memo From Sto ") & Sheets("Sheet1").Range("H4").Value
MsgBox "Your details have been sent", vbInformation, "PAYROLL MEMOS"
ActiveWindow.Close SaveChanges = True
Range("A1").Select

End Sub

Sending mail to different mail address based on cell value
 

You could also set up string variable at the beginning of your procedu

Dim strRecipient As String
If Range("Z1").Text = "00M" Then
strRecipient = "
ElseIf Range("Z1").Text = "00C" Then
strRecipient = "
End If

And then modify the send mail line:

ActiveWorkbook.SendMail strRecipient, _
("Memo From Sto ") & Sheets("Sheet1").Range("H4").Value