Ir para conteúdo
Fórum Script Brasil
  • 0

Como enviar informação por mail?


Bookman

Pergunta

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: mail1@mailteste.pt

ADSL: mail2@mailteste.pt

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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 = "Joaomamede@4x4.pt"
        .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

 

Editado por Bookman
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...