Export with Outlook Invite as attachment?

[Aweiher]

I have a database that tracks the schedule for multiple employees. When the data entry screen for an appointment is closed it fires a VBA code that sends the assigned employee a summery of the appointment.



Here is the code I use.
DoCmd.SendObject , , , [teemail], , , "You have a new schedule item.", "Type of Appointment: " & [totDescription] & vbCrLf & vbCrLf & "Date: " & [tblSchedule.scDate] & vbCrLf & "Start Time: " & [scStartTime] & vbCrLf & vbCrLf & "End Time: " & [scEndTime] & vbCrLf & vbCrLf & "Project Number: " & [prProjectNumber] & vbCrLf & "Project Name: " & [prName] & vbCrLf & vbCrLf & "Location: " & [scLocation] & vbCrLf & "Directions/Map: " & slink & vbCrLf & vbCrLf & "Contractor: " & [coName] & vbCrLf & vbCrLf & "Material Info: " & [scMaterialInformation] & vbCrLf & vbCrLf & "Inspector: " & [inFullName] & vbCrLf & "Email: " & [inEmail] & vbCrLf & "Cell: " & [inCell] & vbCrLf & vbCrLf & "Remarks: " & [tblSchedule.scNotes], 0

My question is, can I have that email also include an outlook appointment invite attached to the email that would have the Date (tblSchedule.scDate), Start Time (scStartTime), End Time (scEndTime), Subject (totDescription), and Location (scLocation) already filled out, so the user can just open the attachment and click "Accept"?

[rpeare]

enclose your code in to make it readable please.

You can do pretty much anything with an outlook object that you could with a mouse and keyboard, however I don't know if you can do it with the .sendobject command. .sendobject is a lot more restricted than using outlook objects.

[vicsaccess]

I have that on my list of things that would be "great" to add to my DB at a later time so i have this code and article saved to look into later. maybe it can do you some good now. let me know how it works.

http://gainingaccess.net/Articles/Ac...kCalendar.aspx

[Aweiher]

Thanks for the replies. Vicaccess I'll check that out. rpeare how to I enclose code? sorry I'm new to the forum.

[rpeare]

put

 before your code and

after your code

[Aweiher]

Code:
testing
<

[Aweiher]

I can't see what you put to enclose it...

[rpeare]

arg it's a a square bracket [ ] on both sides of your code in one it says 'code' the terminator says /code

[Aweiher]

vicsaccess I tried that code out. It worked with the exception of 1) the .duration property; I had to delete that to get the code to fire, and 2) the code to check to see if outlook is open doesn't seem to work.

I will def add that button my database, but I'm still searching for a way for the email a person receives to contain the outlook appointment as an attachment.

[Aweiher]

Heres the code I ended up using
[Code:]Private Sub Command374_Click()
If Me.Dirty Then
Me.Dirty = False
End If

Dim olapp As Object ' Outlook.Application
Dim olappt As Object ' olAppointmentItem

'If isAppThere("Outlook.Application") = False Then
' Outlook is not open, create a new instance
'Set olapp = CreateObject("Outlook.Application")
'Else
' Outlook is already open--use this method
Set olapp = GetObject(, "Outlook.Application")
'End If
Set olappt = olapp.CreateItem(1) ' olAppointmentItem
With olappt
.Start = Nz(Me.scDate, "") & " " & Nz(Me.scStartTime, "")
.End = Nz(Me.scDate, "") & " " & Nz(Me.scEndTime, "")
.Location = Nz(Me.scLocation, vbNullString)
.Subject = Nz(Me.totDescription, vbNullString)
.Body = Nz(Me.scNotes, vbNullString)
'.ReminderOverrideDefault = True
'.ReminderMinutesBeforeStart = 30
'.ReminderSet = True
.Save
End With

' Release the Outlook object variables.
Set olappt = Nothing
Set olapp = Nothing

' Inform the user
MsgBox "Appointment Added!", vbInformation

End Sub
[/code]

[Aweiher]

And clearly I don't know wtf im doing when it comes to embedding code in this forum....

[vicsaccess]

Thanks for the update, someday i'll get around to this code. hopefully you can get the bugs worked out for me

[Aweiher]

Ok I found different code that successfully checks if outlook is open
Code:[ Dim oOutlook As Object
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
' Outlook is not open, create a new instance
Set olapp = CreateObject("Outlook.Application")
Else
' Outlook is already open--use this method
Set olapp = GetObject(, "Outlook.Application")
End If /code]

[vicsaccess]

still curious, were you able to get it to email the appointments?

[sstiebinger]

You can use the "#" button in the editor to generate the code brackets.
[C0DE]Your code here.[/C0DE]