and then i wanna make a VB application that get this
custom form and send it to someone else...
the question is how i can get this custom form and how to
tell outlook.application to send this custom form...
i try manually with Outlook 2000, however when someone
else receives this custom form..all the buttons i added on
the form dissapear....

Sample code :
    Dim mOApp As Outlook.Application
    Dim mONs As Outlook.NameSpace
    Dim mOMailItem As Outlook.MailItem

    Set mOApp = New Outlook.Application
    Set mONs = mOApp.GetNamespace("MAPI")
    Set mOMailItem = mOApp.CreateItem(olMailItem)
    With mOMailItem
        .To = GetSetting("Send2Email", "VERP", "email")
        .Subject = "Nylon Production Condition Approval"
        .Body = ?
        If .Recipients.ResolveAll Then
            .Send
        End If
    End With

To launch a custom form you would use the form's published custom
message class:
    Set mOMailItem = mOApp.CreateItem("IPM.Note.foAdi")

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm

i do this code following your instruction :
however it returns run-time error '13' type mismatch on executing
'Set mOMailItem = mOApp.CreateItem("IPM.Note.foAdi")'
i read that createitem only supports OlItemType like this :
'CreateItem(ItemType As OlItemType) as Object'

    Dim mOApp As Outlook.Application
    Dim mONs As Outlook.NameSpace
    Dim mOMailItem As Object (or Dim mOMailItem as MailItem)

    Set mOApp = New Outlook.Application
    Set mONs = mOApp.GetNamespace("MAPI")
    Set mOMailItem = mOApp.CreateItem("IPM.Note.foAdi")
    With mOMailItem
        .To = GetSetting("Send2Email", "VERP", "email")
        .Subject = "Nylon Production Condition Approval"
        .Body = "Text"
        If .Recipients.ResolveAll Then
            .Send
        End If
    End With

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--
Sue Mosher, Outlook MVP
   Outlook and Exchange Solutions
   at http://www.slipstick.com

yes, you're right...
however when the email message is received by the receiver..
the email message turns to be standard email form not foAdi..
i read help file :
.

1. Right-click the Inbox folder and click Properties.
2. Change the When posting to this folder, use setting
to the name of the post form that was just published.
(foAdi in Organizational Forms Library)
3. Click OK
.
it returns 'you can not create an item of this type in this folder'.
and i also think that it is not flexible...everytime user wants to
receive some custom emails , he has to first change the default form for
'Inbox folder' whereas...the custom forms may vary perhaps more than
1...

thanks.

this is sample code:
====================
    Dim objFolder As Outlook.MAPIFolder
    Dim objItem As Object

    Set objFolder = Application.ActiveExplorer.CurrentFolder
    Set objItem = objFolder.Items.Add("IPM.Note.foAdi")

    With objItem
        .To = GetSetting("Send2Email", "VERP", "email")
        .Subject = "Nylon Production Condition Approval"
        .Body = "Hi"
        If .Recipients.ResolveAll Then
            .Send
        End If
    End With

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--
Sue Mosher, Outlook MVP
   Outlook and Exchange Solutions
   at http://www.slipstick.com

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Lead Author, Professional Outlook 2000 Programming, Wrox Press
Lead Author, Beginning VB 6 Application Development, Wrox Press
Attachment Options
http://www.slovaktech.com/attachmentoptions.htm
Extended Reminders
http://www.slovaktech.com/extendedreminders.htm

thanks for your reply.

(a) i tested this email on my own email address and my outlook 2000 (To
and From are my email addresses). yes..

(b) yes..
On the Tools menu, i click Options, and
then click the Mail Format tab.
In the Send in this message format list,
i click Microsoft Outlook Rich Text.

(c) i am not sure...because i already published it in
organizational forms library and save it...

Options - Other tab -
General (Advanced Options) -
Custom Forms - Manage Forms -
i move foAdi from Organization Forms
to Personal Forms
...

frankly speaking, i do not know about (c) please correct me if my (c)
action is incomplete ..

(d) i wonder about the following statement -->
If you are sending through a Microsoft Exchange Server Internet Mail
Connector, the connector must be configured to support Transport Neutral
Encapsulation Format (TNEF), which encapsulates the rich text.
..
then i do the following steps :
New - Choose Form - foAdi
(from Organizational Forms Library)
there are two buttons on foAdi...
then i send it to my own email address..
i received it on my outlook 2000,
but i can not see the buttons on this foAdi.
then i right-click Inbox folder, then
click General Tab then change 'When posting
to this folder use : foAdi..'
but it returns error you can not create an
item of this type in this folder.

thanx

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

sorry for being careless and not mindful on senses..
actually if i were more mindful on outlook custom form design mode
before..
i would notice that there are two modes :
edit compose page and edit read page.

i only set the buttons on edit compose page.
and forget to set the buttons on edit read page.

thanx

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!