Este fórum está sendo desativado

[victordan1997]

Pessoal,

Uso o macro abaixo para gerar algumas ordens da minha empresa.. assim no corpo do e-mail que é selecionado existe uma imagem, porém, ele não copia e cola a imagem que esta dentro do alcance para o outlook, poderiam me ajudar ?


Sub Gerar_Ordem()


Dim OutlookApp As Object
Dim OutlookMail As Object
CxDialog = MsgBox("Antes de enviar a ordem, não se esqueça de incluir sua assinatura de e-mail com disclaimer padrão!", vbInformation, " A T E N Ç Ã O ! ")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.to = Range("C5").Value
.CC = ""
.BCC = "cpr@pipedrivemail.com"
.Subject = Range("I1").Value
.Body = Range("i3") & vbCrLf _
& Range("i4") & vbCrLf _
& Range("i5") & vbCrLf _
& Range("i6") & vbCrLf _
& Range("i7") & vbCrLf _
& Range("i8") & vbCrLf _
& Range("i9") & vbCrLf _
& Range("i10") & vbCrLf _
& Range("i11") & vbCrLf _
& Range("i12") & vbCrLf _
& Range("i13") & vbCrLf _
& Range("i14") & vbCrLf _
& Range("i15") & vbCrLf _
& Range("i16") & vbCrLf _
& Range("i17") & vbCrLf _
& Range("i18") & vbCrLf _
& Range("i19") & vbCrLf _
& Range("i20")
.Display ' para envia o email diretamente defina o código .Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

[babdallas]

Não entendi muito bem. Poderia dar mais detalhes?