• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

rafa_castro

enviar mail através do access

2 mensagens neste tópico

boas !

é o meu primeiro post  ;)

estou a criar uma BD em access de abastecimentos e quero criar um botão que envie um mail com o nome de quem abasteceu e os litros para determinado contacto. o servidor d email é o lotus notes e não o outlook.

tirei este codigo da net mas da-me erro e também nao sei onde tenho de inserir os dados, como o destinatário e o que se encontra em aspas("")  ;)

o codigo é este:

Private Sub Comando7_Click()

    Dim notesdb As Object

    Dim notesdoc As Object

    Dim notesrtf As Object

    Dim notessession As Object

    Set notessession = CreateObject("Notes.Notessession")

    Set notesdb = notessession.GetDatabase("", "")

    Call notesdb.openmail

    Set notesdoc = notesdb.createdocument

    Call notesdoc.replaceitemvalue("Sendto", "123@hotmail.com")

    Call notesdoc.replaceitemvalue("Subject", "teste")

    Set notesrtf = notesdoc.createrichtextitem("teste")

    Call notesrtf.appendtext("Problem Report")

    Call notesrtf.addnewline(2)

    Rem attach Error Report doc

    's = ActiveDocument.Path + "\" + ActiveDocument.Name

    Call notesrtf.embedObject(1454, "", strCurrentPath, "Mail.rtf")

    Rem send

    Call notesdoc.Send(False)

    Set notessession = Nothing

End Sub

alguem me pode ajudar ?

muito obrigado  :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ola Rafa ia vai uma dica da sintaxe depois podes adpta la

Dim OutApp As Object

    Dim OutMail As Object

 

    Set OutApp = CreateObject("Outlook.Application")

    OutApp.Session.Logon

    Set OutMail = OutApp.CreateItem(0)

    With OutMail

        .To = "exemplo@exemplo"

        .CC = "exemplo@exemplo"

        .BCC = "exemplo@exemplo"

        .Subject = "o assunto"

        .Body = "a mensagem."

        .Attachments.Add "directorio"

        .Send

    End With

    Set OutMail = Nothing

    Set OutApp = Nothing

espero ter ajudado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora