vba - If Event is True then Outlook message.

[Susy]

Hi everyone,

I am trying to "silently" send an email if for instance an event is trigger. In this case, if the amount of X is less to the amount of Y then send an email to remind me to buy more from product X.

I will be using Outlook for this matter.

The .Body should read something like "Your reserves from "Product X" are reaching its minimum. Please buy more of it"

I hope anyone can help me with this.

[sdel_nevo]

Hi susy

this is the code I use to create an e-mail if a ticket is set to closed.

you could change the code to something like this below, it checks if an e-mail address is present in a form, if not no e-mail is sent if one exists an e-mail is automatically sent and a message box pops up informing you, these can be removed by commenting it if required

If IsNull(Me.UsersEMailAddress) Then
MsgBox "This Ticket Has Been Closed. No E-Mail Has Been Set ", vbOKOnly, "Ticket Sent"
Forms!OpenAssetNotes.Requery
Else'this requires a refrence to outlook object libary
Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook wasn't running, start it from code
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
'Set the recipient for the new email
.BodyFormat = olFormatHTML
.To = Me.UsersEMailAddress
'.CC = DLookup("SupportEmail2", "Settings", "ID = 1")
.Subject = Me.NoteType
.HTMLBody = Me.Notes & "This Ticket Has Been Closed By " & Me.ClosedBy
'.Display
.Send
End With

If bStarted Then
'If we started Outlook from code, then close it
oOutlookApp.Quit
End If
Set oOutlookApp = Nothing
Set oItem = Nothing
MsgBox "This Ticket Has Been Closed. An E-Mail Has Been Sent To " & Me.OpenedBY, vbOKOnly, "Ticket Sent"
'DoCmd.Close
Forms!OpenAssetNotes.Requery

End If

End Sub

hope this helps
steve

[Susy]

Thanks Steve, let me see if I can figure out how to adapt it. I will let you know. :-)

[Susy]

Steve, a similar code should be inserted in the AfterUpdate event from the field I want to "test, right?

[sdel_nevo]

Hi Susy

sorry for the late reply

yes, that's correct

Steve