[Resolvido]Criar email padrão

Tenho um bd com um formulário com dados de fornecedores ( Nome da empresa, endereço, tele fone e contato), gostaria de criar um botão que ao cliclar criasse um email que já tenho um texto padrão, porém complementado os dados do fornecedor que eu estiver visualizando no formulário. No formulário eu vejo um fornecedor por vez. Já criei o botão e já consigo que o outlook abra uma nova mensagem, agora só falta saber como faço um texto padrão para o email e adicionar os dados que estão no formulário.
Obrigado pela ajuda desde já.

Use DLookup para buscar os dados na tabela:

.Body = DLookup("NomeDoCampo", "NomeDaTabela", "Código=1")
ou
.Body = DLookup("NomeDoCampo", "NomeDaTabela", "Código=" & Me!Código)

Não sei de que forma está montando essa parte do email, mas pode ser esse um dos caminhos. Qualquer aparte, coloque o código que está usando para enviar o email aqui e as informações sobre aonde está a mensagem pretendida.

O código que usei é o seguinte:

Private Sub Comando186_Click()
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = ""
.Cc = ""
.Bcc = ""
.Subject = ""
.Body = "Fornecedor:" & " " & Me.Fornecedor + vbCrLf & _
vbCrLf & _
"Contato e Telefone:" & " " & Me.ContatoTelefone + vbCrLf & _
vbCrLf & _
"Assunto: Confirmação de visita de inspeção:" & " " & Me.Evento & " " & Me.PCOS + vbCrLf & _
vbCrLf & _
"Item:" & " " & Me.Item & " " & "Quantidade:" & " " & Me.Quantidade & " " & "Material:" & " " & Me.DescricaodoMaterial






.Display

End With
End Sub

MAs não entendi como faço um texto padrão e vou chamando os dados do access. Por exemplo em minha mensagem gostaria de ter uma tabela e cada clouna e linha da tabela seria um dado do meu formulário.

Vou deixar aqui um exemplo que eu preparei para um membro da Access Brasil. Esse é enviado por cdo, mas é só adaptar para o seu método:

Dim DB As Database, RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("NomeDaTabela" dbOpenTable)
RS.MoveFirst
Do While Not RS.EOF

With RS

If RS("ID") = Me.ID Then
Me.txtNotas = Me.txtNotas & "Número da nota:" & RS("NrNota") & " - Valor:" & RS("Valor") & " - Pendência:" & RS("Pendência") & vbCrLf
End If
.MoveNext
End With
Loop

Set DB = Nothing
Set RS = Nothing
RS.Close
DB.Close

É possível monta uma tabela para colocar os dados?

O código acima busca os dados na tabela. Observe que foi declarada a variável db que foi setada como o aplicativo corrente e a variável rs que foi setada como a tabela NomeDaTabela.

rs("NomeDoCampo") se refere a um campo na tabela setada para o rs.

Criquio,
Desculpe mas me expressei errado e você entendeu errado, essa tabela que eu disse seria uma tabela no meio do email padrão que quero criar (tipo uma tabela do word), aí cada célula vai receber um dado do formulário.
Tem como eu formatar o texto deste email padrão?

Pode usar html para isso:

.Body = "<table><tr><td>Fornecedor:</td><td>" & Me.Fornecedor "</td></tr><tr><td>Contato e Telefone:</td><td>" & Me.ContatoTelefone & "Assunto: Confirmação de visita de inspeção:" & " " & Me.Evento & " " & Me.PCOS + vbCrLf & _
vbCrLf & _
"Item:" & " " & Me.Item & " " & "Quantidade:" & " " & Me.Quantidade & " " & "Material:" & " " & Me.DescricaodoMaterial

Coloquei só uma inicial do que seria. Veja se consegues completar. Se não conheces html, no final termina com as tags de fechamento </td></tr></table>

Coloquei o seu exemplo para testar´, quando criou o email em vez de aparecer uma tabela apareceu o código html que você escreveu como abaixo:

Contato e Telefone:DAYSE (11) 4061-9128Assunto: Confirmação de visita de inspeção: PEDIDO DE COMPRA 4500024438
Item: 1 E 2 Quantidade: 29010 Material: CABO PARA-RAIOS OPGW 24 FIBRAS
CABO PARA-RAIOS OPGW 12 FIBRAS

GostoNão gosto

• 

femlsantos

femlsantos

Novato

Respeito às regras :

Sexo :
Localização :
Mensagens : 33
Registrado : 26/04/2011

• Mensagem nº10

Re: [Resolvido]Criar email padrão

  femlsantos 6/6/2011, 20:21

desculpe
apareceu o seguinte:
"

Fornecedor:

PROCABLE ENERGIA E TELECOMUNICAÇÕES S.A

Contato e Telefone:DAYSE (11) 4061-9128Assunto: Confirmação de visita de inspeção: PEDIDO DE COMPRA 4500024438
Item: 1 E 2 Quantidade: 29010 Material: CABO PARA-RAIOS OPGW 24 FIBRAS
CABO PARA-RAIOS OPGW 12 FIBRAS
"

GostoNão gosto

• 

femlsantos

femlsantos

Novato

Respeito às regras :

Sexo :
Localização :
Mensagens : 33
Registrado : 26/04/2011

• Mensagem nº11

Re: [Resolvido]Criar email padrão

  femlsantos 6/6/2011, 20:24

<table><tr><td>Fornecedor:</td><td>PROCABLE ENERGIA E TELECOMUNICAÇÕES S.A</td></tr>Contato e Telefone:DAYSE (11) 4061-9128</td></tr>Assunto: Confirmação de visita de inspeção: PEDIDO DE COMPRA 4500024438
Item: 1 E 2 Quantidade: 29010 Material: CABO PARA-RAIOS OPGW 24 FIBRAS
CABO PARA-RAIOS OPGW 12 FIBRAS

GostoNão gosto

• 

criquio

•  
•   

criquio

Moderador Global

Respeito às regras :

Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009

• Mensagem nº12

Re: [Resolvido]Criar email padrão

  criquio 6/6/2011, 21:06

Tente alterar essa linha assim:

.HTMLBody = "Fornecedor:" & " " & Me.Fornecedor + vbCrLf & _...

.................................................................................

Fornecedor:

PROCABLE ENERGIA E TELECOMUNICAÇÕES S.A

Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas.