Sending appointment by e-mail

[barttabac]

Hello,
I'm looking for a solution to send e-mail's invitations meetings (I mean appointments thanks to Outlook or Lotus).

I know how to send mail. I'm using this :

loMsg = createobject ("CDO.Message&quot
WITH loMsg
.To = "xxx@yyy.com"
.Subject = "Subject"
ENDWITH
loMsg.send

But I'm lost with the sending of appointments

Any idea ? Please help...

Does the solution depend on the software (Outlook, Lotus, ...) or is there a single solution ?

thanks in advance

 

[Mike Gagnon]

barttabac

Does the solution depend on the software (Outlook, Lotus, ...) or is there a single solution ?

No, I don't think there is a single solution, it would depend on the receiving software. The e-mails are pretty much the same format (ie. receipient, subject, body etc...), but an appointement might be too specific.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[barttabac]

Thanks Mike,

Have you got any idea how I can send appointment with Outlook ??

 

[Mike Gagnon]

barttabac

This is only an example, but if you need to use it, remove the last line, and take the star out for the SEND. The display is only to show you how it looks once filled in.

o= Createobject("outlook.application")
ns = o.GetNamespace('mapi')
df = ns.GetDefaultFolder(9)  &&Appointement
oItem = o.CreateItem(1)
With oItem
	.Recipients.Add("me@nowhere.com") && has to be valid
	.Subject = "This is an urgent appointment"
	.Location = "My office"
	.Body = "Please join us in my office to discuss the future plan of the company."
	.Start = "02/18/2004 09:00"
	.End = "02/18/2004 11:00"
*.send
Endwith
oItem.Display

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[barttabac]

Ok,

Thanks Mike for your quick answer !

I'll test this immediately.

I hope my last questions :

1) Is there a way to send this appointment by using CDO ?

2) Have you got any idea how it works with Lotus Notes ?

Thanks.

 

[Mike Gagnon]

1) Is there a way to send this appointment by using CDO ?

oCDOApp = CREATEOBJECT("cdo.appointment")
WITH oCDOApp
  .Attendees.Add("me@somewhere.com")
  .Attendees.Add("you@somewhere.com")
  .Attendees.Add("them@somewhere.com")
  .AllDayEvent =.t.
  .Subject = "Futur of your job"
  .TextBody = "Please join us in the board for an all day meeting"
ENDWITH

2) Have you got any idea how it works with Lotus Notes ?

I don't have Lotus notes so I cannot test it, you would have to go to their website and look at the object model.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.