Jump to content
Fórum Script Brasil
  • 0

Como enviar informação por mail?


Question

Boa tarde,

Tenho ficheiro onde através de um formulário ele guarda os dados do mesmo numa tabela à parte, no entanto precisava que ao pressionar enviar, o formulário além de guardar os dados nessa tabela (esta parte já está a funcionar), enviasse também por mail todo o conteúdo, ou seja, o texto e imagens.

Além disso gostava também que o mail assumisse no assunto e no corpo do mail dados do preenchimento do formulário.

Abaixo imagem do formulário e mail que é pretendido enviar.

Formulário:

 

1.jpg.f0e07ade78f41c2269f158eb1a44690f.jpg

 

Mail:

2.jpg.9608e3505fcf763223850717d2a7ec94.jpg

O pretendido é que mediante a Tecnologia escolhida, ele envie o mail para uma caixa de mail, exemplo:

Fibra: [email protected]

ADSL: [email protected]

E que onde representei as variáveis, as mesmas sejam substituídas pelos dados do formulário que se encontram nos campos correspondentes ás mesmas, incluindo também a imagem carregada no formulário, no corpo do mail, tal como está no anexo.

Será que me podem ajudar?

Obrigado.

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
Posted (edited)

O código que tenho é este:

Private Sub Enviar_Mail_DOI_Click()

    Dim ApplicationOutlook As Object
    Dim OutlookMail As Object
    Dim cell As Range
        
    
    Application.ScreenUpdating = False
    
    Set ApplicationOutlook = CreateObject("Outlook.Application")
    
    On Error GoTo limpa
    
    Set OutlookMail = ApplicationOutlook.CreateItem(0)
    On Error Resume Next
    With OutlookMail
        .To = "[email protected]"
        .CC = ""
        .BCC = ""
        .Subject = "Pedido de viabilidade %tecnologia // %localidade"
        .HTMLBody = ""
        .Body = "Bom dia, " & _
              & vbNewLine & vbNewLine & _
              "Segue pedido de viabilidade " & Pedido_DOI.Tecnologia & _ ", para a morada abaixo." _
              & vbNewLine & _
              & pedido_doi.Morada_Cliente _
              & vbNewLine & _ & pedido_doi.CP7_Cliente & _ " " & pedido_doi.Localidade_Cliente & _
              & vbNewLine & _ & pedido_doi.Cidade_Cliente _
              & vbNewLine & vbNewLine & _
              & vbNewLine & _ & pedido_doi.Coordenadas_Cliente _
              & vbNewLine & vbNewLine & vbNewLine & _
              & vbNewLine & _ & pedido_doi.Print_GoogleMaps _
        .Display
    End With
    On Error GoTo 0
    Set OutlookMail = Nothing
    MsgBox ("O pedido de viabilidade %Tecnologia foi enviado com sucesso!")

limpa:
    Set ApplicationOutlook = Nothing
    Application.ScreenUpdating = True

End Sub


Podem ajudar a identificar onde está o erro?

Obrigado

 

Edited by Bookman
Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148901
    • Total Posts
      644984
×
×
  • Create New...