Sou novo no fórum por isso não sei se estou criando o tópico da forma certa.
Tenho um Form que insiro dados e após gravado gero um email no outlook para ser enviado aos diretores da empresa, mas esta tudo certo só não carrega a assinatura já gravada no outlook.
Código no botão enviar e-mail
*****************************************************************************************
Private Sub cmd_envio_email_Click()
'Declarar variaveis
Dim appOutlook As Object
Dim olMail As Object
Dim texto As String
Dim fAssinatura, stAssinatura, stLinha
'Verifica se Outlook está aberto. Caso não esteja, criar nova instância
On Error Resume Next
Set appOutlook = GetObject(, "Outlook.Application")
If appOutlook Is Nothing Then
Set appOutlook = CreateObject("Outlook.Application")
End If
On Error GoTo 0
Set olMail = appOutlook.CreateItem(0) '0 é um item de e-mail
With olMail
.To = "[email protected]"
.Subject = "Informativo " & lbl_situacao & " PCH PEZ""""""" & DateValue(Now)
'.Attachments.Add = "C:UsersmclDesktopVazões Tabela_PEZ.xlsm"
.HTMLBody = texto
.Body = "Caros, informamos que estamos em situação de " & lbl_situacao _
& " na PCH PEZ" & vbCrLf & _
"Vazão Atual: " & txt_vazao_atual & "m³/s." & vbCrLf & _
"" & vbCrLf & _
"Observações: " & txt_descricao_observacao & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"Histórico das Vazões nas últimas 03 horas" & vbCrLf & _
"" & vbCrLf & _
"Vazão defluente ás " & lbl_hora_uma_mostra & " = " & lbl_vazao_uma & "m³/s." & vbCrLf & _
"Vazão montante ás " & lbl_hora_duas_mostra & " = " & lbl_vazao_duas & "m³/s." & vbCrLf & _
"Vazão montante ás " & lbl_hora_tres_mostra & " = " & lbl_vazao_tres & "m³/s." & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"Valores de Referência:" & vbCrLf & _
"* Vazão acima de 3.100,00m³/s = Vazão de Alerta" & vbCrLf & _
"* Vazão acima de 3.950,00m³/s = Vazão de Emergência 1" & vbCrLf & _
"* Vazão acima de 4.400,00m³/s = Vazão de Emergência 2" & vbCrLf & _
"* Vazão acima de 4.650,00m³/s = Vazão de Emergência 3" & vbCrLf & _
"" & vbCrLf & _
"" & vbCrLf & _
"Att," & vbCrLf & _
.Display 'ou .Send
'Zerar as variaveis
'Xtxt_data_atual = ""
'Xtxt_hora_atual = ""
'Xtxt_geracao = ""
'Xtxt_vazao_atual = ""
'Xtxt_descricao_observacao = ""
'Xtxt_vazao_uma = ""
'Xtxt_hora_uma = ""
'Zerar formulario
txt_data_atual = ""
txt_hora_atual = ""
txt_geracao = ""
txt_vazao_atual = ""
txt_descricao_observacao = ""
'txt_vazao_uma = ""
'txt_hora_uma = ""
End With
End Sub
**********************************************************************************
Postado : 18/01/2015 1:43 am