[Resolvido]Adicionar contato Outlook

Prezados Colegas, é possível adicionar contatos no outlook via formulário access?
Já vinculei o outlook ao meu bd, porém só consigo adicionar contatos via outlook.
Gostaria de fazer ao contrário: cadastrar o contato no meu banco de dados e adicionar automaticamente no outlook.
Desde já, agradeço a ajuda dos colegas.

Olá @ictsp, você quer adiconar um destinatario por mensagen? Ou varios?

Acabei de resolver um problema desse tipo.

No aguardo.

Prezado amigo Josealdo, desde já, obrigado pelo retorno.

Eu gostaria de salvar um contato diretamente nos contatos do outlook.

nome, sobrenome, telefone .... etc.

ictsp, eu entendi errado o seu topico. Pensei que queria envia emails.

Nesse caso não sei como ajudar. Mais tenta verificar via Editor verificando as propriedades para Outlook.Application e depois digite o nome da variável e um "." o editor vai exibir a lista de métodos.

Lembre-se que vc tem que ativar a referencia de Biblioteca para Microsoft Outlook

Sucesso.

Olá!

Prezado Avelino Sampaio, muito obrigado por sua dica. Não tenho um conhecimento profundo de vba e o pouco que tenho, adquiri aqui no fórum com a ajuda dos colegas.
Tentei utilizar o código exatamente como está no site citado mas, pelo menos para mim, não deu certo.
Dei uma simplificada e ficou dessa forma:

Código:

Private Sub Comando0_Click()
Call fncAddToOutlook
End Sub
Public Function fncAddToOutlook()
On Error GoTo StartError

Dim objOutlook As Outlook.Application
Dim objItem As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olContactItem)

With objItem
.FirstName = "Daniel"
        .LastName = "Alba"
        .FullName = "Alba, Daniel"
        .FileAs = "D. Alba"
        .Anniversary = #7/22/1975#
        .JobTitle = ""
        .CompanyName = "MINI CARDA"
        .BusinessAddressStreet = "22 ClearPoint"
        .BusinessAddressCity = "Pointe-Claire"
        .BusinessAddressState = "Quebec"
        .BusinessAddressCountry = "Canada"
        .BusinessAddressPostalCode = "H9X 3A6"
        .BusinessTelephoneNumber = "(514) 488-0956"
        .BusinessFaxNumber = ""
        .Email1Address = "mini@mini.com"
        .MobileTelephoneNumber = ""
        .AddPicture ("C:\Users\ItsMe\Pictures\home-2955065_960_720.jpg")
        .Save
End With

objItem.Display


Set objOutlook = Nothing

Exit Function

StartError:
MsgBox "Error: " & Err & " " & Error
Exit Function
End Function


Este comando já abre o outlook com os dados preenchidos.


Caso os colegas tenham alguma sugestão de melhorar este código, será muito bem vindo.

ola

Tentei fazer banco para teste e deu erro
poste o seu banco de dados com as partes envolvidas

Olá!

Prezado scandinavo, apenas criei um botão no form e coloquei o código. Peço desculpas aos colegas, esqueci de mencionar dois pontos importantes:

1)Remover a linha de código que se refere à imagem (ou alterar o caminho)
2) Fazer referência ao outlook.

Caso os colegas tenham necessidade de preencher outros campos, visitem essa página:
https://docs.microsoft.com/pt-br/office/vba/outlook/concepts/forms/outlook-fields-and-equivalent-properties

De resto, funcionou perfeitamente conforme minha postagem anterior.

Vamos simplificar coloque este código em um evento de botão e altere para os nomes corretos dos campos.

Código:

On Error GoTo StartError

Dim objOutlook As Outlook.Application
Dim objItem As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objItem = objOutlook.CreateItem(olContactItem)

With objItem
.FirstName = Me.seucamponoform
        .LastName = Me.seucamponoform
        .FullName = Me.seucamponoform
        .FileAs = Me.seucamponoform
        .Anniversary = Me.seucamponoform
        .JobTitle = ""
        .CompanyName = Me.seucamponoform
        .BusinessAddressStreet = Me.seucamponoform
        .BusinessAddressCity = Me.seucamponoform
        .BusinessAddressState = Me.seucamponoform
        .BusinessAddressCountry = Me.seucamponoform
        .BusinessAddressPostalCode = Me.seucamponoform
        .BusinessTelephoneNumber = Me.seucamponoform
        .BusinessFaxNumber = ""
        .Email1Address = Me.seucamponoform
        .MobileTelephoneNumber = ""
      ' .AddPicture ("C:\Users\ItsMe\Pictures\home-2955065_960_720.jpg")
        .Save
End With

objItem.Display


Set objOutlook = Nothing

Exit Sub

StartError:
MsgBox "Error: " & Err & " " & Error
Exit Sub

Prezado amigo scandinavo, observei que quando fica algum campo sem preenchimento no formulário, dá um erro na hora de abrir o outlook.
Não tenho muito conhecimento no vba, mas resolvi usando o if.

If IsNull(Me.END) Then
.BusinessAddressStreet = ""'Endereço Comercial
Else

.BusinessAddressStreet = Me!END 'Endereço Comercial
End If

Mesmo que fique algum campo vazio, consigo chamar outlook.

Teria alguma sugestão?
Desde já, obrigado!

Olá!

Obrigado pela ajuda.
Agora, consigo cadastrar o contato no bd e ele já fica gravado tbém no outlook.

Valeu pelo retorno

tentei usar o no vba o código IIf para o seu caso mas não deu certo.