Mabry with attachments

[PaulBarbeau]

Have anyone gotten parts to working with VFP and Mabry INet Controls? I have almost everthing working however i can not get parts to work at all. I can add a parts but can not add any text in it or assign any properties. can anyone help?

Here is my code that works

boundary = sys(3)
mMail1 = CreateObject("Mabry.MimeMessage&quot

mMail1.to = "paul@hypernet.ca"
mMail1.ContentType = "multipart"
mMail1.ContentSubtype = "alternative"
mMail1.ContentSubtypeParameters = "boundary=" + Chr(34) + "----=_NextPart_" + boundary + Chr(34)
mMail1.MultipartBoundary = "----=_NextPart_" + boundary


mMail1.Headers.Add("X-Priority","1&quot
mMail1.Headers.Add("X-MSMail-Priority","High&quot

mMail1.Body = "This is a multi-part message in MIME format." + chr(10)

=mMail1.parts.Add("part1&quot

and the output..


Received: from mail.hypernet.ca (mail.barbeau.net [66.38.190.100]) by galacticus.hypernet.ca with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2653.13)
id L7PQC20B; Wed, 13 Jun 2001 22:57:26 -0400
Received: from [209.71.202.101] by mail.autohypernet.ca (NTMail 6.03.0009/NT0757.00.c9f0c1f9) with ESMTP id pabdcaaa for paul@hypernet.ca; Wed, 13 Jun 2001 22:50:37 -0400
To: paul@hypernet.ca
Content-Type: multipart/alternative; boundary="----=_NextPart_82646104"
X-Priority: 1
X-MSMail-Priority: High
X-AuthenticatedSender: null@[209.71.202.101]
Date: Wed, 13 Jun 2001 22:50:37 -0400
Message-Id: <02503731606371@mail.autohypernet.ca>

This is a multi-part message in MIME format.

------=_NextPart_82646104

------=_NextPart_82646104--