Email Calendar Appointments

[leeparvin]

I can send the email appointment OK with ....

    MailMessage.From.Address := 'mail@server.com';
    MailMessage.Recipients.EMailAddresses := 'lparvin@bjphomesupport.co.uk';
    MailMessage.Subject     := 'Send calendar';
    MailMessage.ContentType := 'text/calendar;method=REQUEST';

That will only work if you load the *content* of the ICS file into the TIdMessage.Body property.

I can also send an .ics attatchment with plain text email with ....

    Attachment:=TIdAttachmentFile.Create(MailMessage.MessageParts, CalendarFile) ;
    Attachment.ContentType:='text/calendar';

That should work fine, after you add the missing 'method' attribute:

Code:

Attachment.ContentType := 'text/calendar;method=REQUEST';

However, I can NOT combine the two, ie send the email appointment with the .ics file attached.

As soon I set  MailMessage.ContentType to anything other than   'text/calendar;method=REQUEST'; eg change it to 'multipart/alternative', it fails.

See Multipart email with text and calendar: Outlook doesn't recognize ics.

If you still can't get it to work, then please show your complete code to populate the TIdMessage.

Hi Remy

Still no luck.  However, by setting the attachment contenttype = 'text/plain' instead of 'text/calendar' fixed the problem.

Just to confirm, Im trying to copy the Google to Outlook setup ie calendar event with an .ics attatchment.

Please see below for a stripped out version, which I hope makes sense.  Please see

ie

......

    idlMessage.Subject     := 'Send calendar';
    idlMessage.ContentType := 'multipart/mixed';


    idTextPart := TIdText.Create(MailMessage.MessageParts, nil);
    idTextPart.ContentType := 'multipart/alternative';


    idTextPart:= TIdText.Create(MailMessage.MessageParts);
    idTextPart.ContentType:= 'text/plain';
    idTextPart.ParentPart := 0;
    idTextPart.Body.Append('Test');


    idTextPart:= TIdText.Create(MailMessage.MessageParts);
    idTextPart.ContentType:= 'text/calendar;method=REQUEST';
    idTextPart.ParentPart := 0;

    idTextPart.Body.Append('BEGIN:VCALENDAR');
.....
    idTextPart.Body.Append('END:VCALENDAR');



    Calendar.Append('BEGIN:VCALENDAR');
......
    Calendar.Append('END:VCALENDAR');

    Calendar.SaveToFile(CalendarFile);

    Attachment:=TIdAttachmentFile.Create(MailMessage.MessageParts, CalendarFile);
    Attachment.ContentType:='text/plain';  -< THIS WORKED!!!!
////    Attachment.ContentType:='text/calendar';  -< THIS DID NOT WORK!!!
    Attachment.FileName := CalendarFile;



I hope this makes sense.......

Thanks

Lee