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

Sign in to follow this  
rafa_castro

enviar mail através do access

Recommended Posts

rafa_castro

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:

Share this post


Link to post
Share on other sites
cristpate

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


craziness it's to do the same thing over and over again expecting a different result

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.