M
Michelle
I have code that is to check to make sure the user entered
data into 4 fields before it sends the email msg out. It
does not work..It keeps showing the msg "You Must Enter A
Pod Count" even if A Pod (K9) has something in
it......Plese help...Here is my code.
Sub SendEmailA()
CheckA:
If K9 = "" Then
MsgBox ("YOU MUST ENTER A POD COUNT")
GoTo TryAgain
Else
GoTo CheckB
End If
CheckB:
If L9 = "" Then
MsgBox ("YOU MUST ENTER B POD COUNT")
GoTo TryAgain
Else
GoTo TryAgain
End If
CheckDate:
If K17 = "" Then
MsgBox ("YOU MUST ENTER A DATE")
GoTo TryAgain
Else
GoTo CheckTime
End If
CheckTime:
If K19 = "" Then
MsgBox ("YOU MUST ENTER THE TIME")
GoTo TryAgain
Else
GoTo SendMail
End If
SendMail:
ESubject = "A Unit Count"
SendTo = "(e-mail address removed)"
Ebody = "A Unit Count is Completed."
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.Body = Ebody
.send
End With
Set App = Nothing
Set Itm = Nothing
ActiveWorkbook.Save
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("B8").Select
TryAgain:
End Sub
data into 4 fields before it sends the email msg out. It
does not work..It keeps showing the msg "You Must Enter A
Pod Count" even if A Pod (K9) has something in
it......Plese help...Here is my code.
Sub SendEmailA()
CheckA:
If K9 = "" Then
MsgBox ("YOU MUST ENTER A POD COUNT")
GoTo TryAgain
Else
GoTo CheckB
End If
CheckB:
If L9 = "" Then
MsgBox ("YOU MUST ENTER B POD COUNT")
GoTo TryAgain
Else
GoTo TryAgain
End If
CheckDate:
If K17 = "" Then
MsgBox ("YOU MUST ENTER A DATE")
GoTo TryAgain
Else
GoTo CheckTime
End If
CheckTime:
If K19 = "" Then
MsgBox ("YOU MUST ENTER THE TIME")
GoTo TryAgain
Else
GoTo SendMail
End If
SendMail:
ESubject = "A Unit Count"
SendTo = "(e-mail address removed)"
Ebody = "A Unit Count is Completed."
Set App = CreateObject("Outlook.Application")
Set Itm = App.CreateItem(0)
With Itm
.Subject = ESubject
.To = SendTo
.Body = Ebody
.send
End With
Set App = Nothing
Set Itm = Nothing
ActiveWorkbook.Save
ActiveSheet.Visible = False
Sheets("Menu").Select
Range("B8").Select
TryAgain:
End Sub