Enviando um email pelo Outlook

Enviando um email pelo Outlook

Primeiro, selecione o componente MICROSOFT MAPI CONTROLS.

Depois acrecente no seu form o objeto MAPISESSION e MAPIMESSAGES que apareceram na sua toolbox. Então use a seguinte codificação para enviar uma mensagem:

mapisession.Action = 1
mapimessages1.SessionID = mapisession.SessionID
mapimessages1.Compose
mapimessages1.RecipAddress = “webmundi@webmundi.com”
mapimessages1.AddressResolveUI = True
mapimessages1.ResolveName
mapimessages1.MsgSubject = “Titulo da minha mensagem”
mapimessages1.MsgNoteText = “Conheça o site Web Mundi, blablablabla…”
mapimessages1.Send False

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *