Como enviar informação por mail?

[Bookman 0]

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:

 

 

Mail:

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.

 

[Bookman 0]

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 June 27, 2020 by Bookman