none
Publicando Formulários RRS feed

Respostas

  • Oi Anderson,

    veja se isto ajuda:

     

    Sub PublishToFolder()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myFolder As Outlook.MAPIFolder
    Dim myItem As Outlook.ContactItem
    Dim myForm As Outlook.FormDescription
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myFolder = _
        myNamespace.GetDefaultFolder(olFolderContacts)
    Set myItem = myOlApp.CreateItem(olContactItem)
    Set myForm = myItem.FormDescription
    myForm.Name = "My Contact"
    myForm.PublishForm olFolderRegistry, myFolder
    End Sub

    terça-feira, 13 de junho de 2006 01:06
    Moderador