[Resolvido]Enviar Email com o Anexo no corpo do Email.

Galera boa Tarde
estou com um dilema
tenho um aplicativo e ele envia e-mail com
algumas informações e anexo.

gostaria de saber se alguém tem o Código
de como mandar o Email com Anexo e no corpo do Email o Texto e a assinatura

abaixo segue o Código que eu utilizo .
abraço a todos








Dim Out As Outlook.Application
Dim ns As Outlook.NameSpace
Dim Folder As MAPIFolder
Dim Mens As MailItem
Dim objOutlookRec As Outlook.Recipient
Dim caminho As String
Dim strArquivo As String
Dim strEnderecos As String
Dim strDestinatarios
Dim StrEnvio
Dim stremail
Dim strEnderCC As String
Dim strDestinatCC
Dim StrEnvCC
Dim stremailComCop
Dim StrEnviCC
Dim fso As Object
Dim strLocal As String
Dim stDocName As String
Dim stLinkCriteria As String



Set Out = New Outlook.Application
Set ns = Out.GetNamespace("MAPI")
Set Folder = ns.GetDefaultFolder(olFolderInbox)
Set Mens = Folder.Items.Add

On Error Resume Next



'Local onde a pasta deve ser criada
strLocal = CurrentProject.Path & "\Relatorio_Ferias"

'Função Cria Pasta
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(strLocal) Then ' verifica se já existe a pasta
Else
' se não existir cria
MkDir strLocal
End If

'Inicio da Função

If IsNull(Me!txt_nome) Then Exit Sub

strArquivo = "Premissas Férias.pdf"

caminho = CurrentProject.Path & "\Relatorio_Ferias\" & strArquivo

stDocName = "Rto_premissas"
'stLinkCriteria = "[Nome]= '" & Me!txt_nome & "'"


DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, caminho
DoCmd.Close acReport, stDocName



Set rst = CurrentDb.OpenRecordset(strEnderecos)

StrEnvio = Left(strDestinatarios, Len(strDestinatarios) - 2)


With Mens
Set objOutlookRec = .Recipients.Add(StrEnvio) ' Destinatario do Email"
'.Cc = StrEnviCC ' Incluir aqui um segundo destinatário se for o caso"
'.BCC = "Wellington Araujo" 'Com Copia Oculta
'Incluir aqui texto da Mensagem"
.Body = "Agendamento de Ferias 2013/2014:" & vbCrLf _
& vbCrLf _
& "Senhores(a)" & vbCrLf _
& "Segue em Anexo as premissas para às marcações de férias referente à 2013/2014 " & vbCrLf _
& "Contamos com a compreensão e colaboração de todos. " & vbCrLf _
& "Caso tenha duvidas a respeito favor entrar em contato com a Supervisão.Obrigado! " & vbCrLf _
& "Estamos a disposição. " & vbCrLf _
& vbCrLf _
& "Atenciosamente. " & vbCrLf _
& vbCrLf _
& "Edson Galvão / Jeremias Cardoso " & vbCrLf _
& "Centro de Operação da Distribuição " & vbCrLf _
& "Distribution Center Operation " & vbCrLf _
& "Operación del Centro de Distribución " & vbCrLf _
& vbCrLf _
& "Fone: (55) (19) 2122-1700 " & vbCrLf _
& "Fax: (55) (19) 2122-1574 " & vbCrLf _
& vbCrLf _
& "Email Enviado de Forma Automatica !!!!!! " & vbCrLf _
'Fim do texto da Mensagem"
.Subject = "Agendamento de Ferias!" ' Incluir aqui o Assunto da Mensagem
.Attachments.Add (caminho) ' Caminho Completo do Anexo
.Display ' Abre EMail mas não Envia Automatico
'.Send ' Envia Email Automaticamente sem Visualização.


rst.Close

Set rst = Nothing

Me!txtfecha = 1


End With

sub End

Boa noite Jeremias, chegou a ver o exemplo do nosso amigo Avelino?

http://www.usandoaccess.com.br/tutoriais/tuto38.asp?id=1

Bom dia amigo, resolveu seu problema?

Se sim peço que clique no Resolvido para fechar o topico ok.

olha oque previso é de Um Codigo que alem de Carregar o Anexo em questão, Tbm Traga a assinatura no Email, oque meu codigo não faz

Boa noite, Jerecardoso
Tenha atenção às regras do fórum, de forma a mantê-lo organizado e respeitando todos os colegas.
- Mantenha o título com a devida finalidade
- Acompanhe os temas por si abertos e responda aos colegas que tentam ajudá-lo (http://maximoaccess.forumeiros.com/t18197-pesquisar-atraves-de-um-unico-formulario-todas-as-tabelas-incluidas-no-banco-de-dados)

ok

Boa tarde,
Jerecardoso
Por ser relapso no incumprimento das regras do fórum (alteração do título, tirar dúvidas no repositório e não dar seguimento adequado aos temas por si abertos), a sua reputação será diminuída em 25%.
Continuamos a confiar no seu melhor desempenho e recuperação da reputação retirada.