Copiar colar print de um Userform (excel) no corpo do e-mail Lotus Notes

Question

Bom dia à todos, estou precisando fazer um printscreen de um formulário que eu desenvoli no excel VBA e colar sua imagem no corpo do e-mail do Notes Lotus, se alguem puder me ajudar.

Antecipo meus agradecimentos

Answer 1

Luiz, obrigado pelo retorno, mas eu não sei inserir este código, pode me ajudar detalhando melhor

obrigado

Answer 2

Utilize a sugestão do PRINT-SCREEN mesmo (depois de maximizar o form). Lembre-se que qdo faz iso, vc está copiando a imagem para a clipboard do windows. para pegar novamente, basta acessar a clipboar via código e colocar no objeto que vc está manipulando.

Answer 3

Obrigado pelo retorno, mas não é tão simples assim, eu estou automatizando a rotina e é por isso que copiar colar o print deve ser automatico. o gravador de macro não funciona neste caso uma vez que é necessário sair do excel para entrar em outro software ( Lotus Notes ).

Vou explicar melhor abaixo segue a rotina desenvolvida em VBA e onde é necessário incluir a rotina que esta destacado em vermelho

Destac Font colour red

Private Sub CommandButton1_Click()

Const EMBED_ATTACHMENT As Long = 1454

Dim noSession, nodatabase, nodocument, noembedobject, noattachment As Object

Dim stAttachment, stsignature, sBuffer As String

Dim vaMailTo, vacopyto, vabcc, stsubject, vamsg As Variant

Dim options, enviarmsg, suserid

Dim lSize As Long

Dim PauseTime, Start, finish, TotalTime

Set noSession = CreateObject("Notes.NotesSession")

Set nodatabase = noSession.GETDATABASE("", "")

If nodatabase.IsOpen = False Then nodatabase.OPENMAIL

stsignature = nodatabase.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)

Set nodocument = nodatabase.CreateDocument

Set noattachment = nodocument.CreateRichTextItem("stAttachment")

'---- se vc vai anexar algum arquivo, remove os comentários das linhas baixo -----------------

' Set noembedobject = noattachment.EmbedObject(EMBED_ATTACHMENT, "", stAttachment)

' stAttachment = "\Dcrobrbritj01\gg-brrio-cpagar_ri$\Itajaí\Anna\Termo de Quitação.doc"

'---------------------------------------------------------------------------------------------

With nodocument

.Form = "Memo"

.SendTo = VBA.Array(UserForm7.TextBox1.Value)

.CopyTo = VBA.Array(UserForm7.TextBox2.Value, UserForm7.TextBox3.Value)

'.BlindCopyTo = vabcc 'email em bcc

.Subject = "Indicação de Fornecedor: " & UserForm7.TextBox5.Value & " / " & UserForm7.TextBox6.Value

'.Body = "mensagem do email"

.Body = "Favor não deletar a mensagem sem antes responder" & vbCrLf & vbCrLf & _

"Nº N.Fiscal: " & vbCrLf & _

"Data de envio: " & vbCrLf & vbCrLf & _

"OS: " & UserForm7.TextBox5.Value & vbCrLf & _

"Descrição: " & UserForm7.TextBox6.Value & vbCrLf & _

"Fornecedor: " & UserForm7.TextBox7.Value & vbCrLf & _

"CNPJ: " & UserForm7.TextBox8.Value & vbCrLf & _

"Orçamento: " & UserForm7.TextBox9.Value & vbCrLf & _

"Prazo SLA: " & UserForm7.TextBox10.Value & vbCrLf & _

"Peso: " & UserForm7.TextBox11.Value & vbCrLf & _

"Armazem OI: " & UserForm7.TextBox12.Value & vbCrLf & _

"C.Custo: " & UserForm7.TextBox13.Value & vbCrLf & _

"Aos cuidados de: " & UserForm7.TextBox14.Value & vbCrLf & _

"Telefone: " & UserForm7.TextBox15.Value & vbCrLf & _

" " & vbCrLf & _

" " & vbCrLf & _

" " & vbCrLf & _

"at" & vbCrLf & _

"Rogério Pontes" & vbCrLf & _

"GEMAL "

'UserForm1.Copy

'UserForm1.Paste

.Principal = "GAOFL: " & UserForm7.TextBox8.Value

.SaveMessageOnSend = True 'true/false > salva ou não a msg nos ítens enviados

.PostedDate = Now()

.Send 0, ""

End With

Set noembedobject = Nothing

Set noattachment = Nothing

Set nodocument = Nothing

Set nodatabase = Nothing

Set noSession = Nothing

End Sub

Answer 4

Bom dia,

Voce poderá ainda, executar todos os passos sugeridos pelo João Eurico, com o gravador de macros ativado, assim, os comandos utilizados ficarão gravados em VBA e poderão ser utilizados por meio do código criado.

Roberto Carlos Bilio

Goiânia GO

Answer 5

Acione o formulário em VBA e deixe-o ativo. Em seguida, tecle ALT-PRTSC

Isso irá gerar uma imagem o formulário no clipboard (área de transferência).

Em seguida, acione o Lotus Notes, crie o email e tecle SHIFT-INSERT, deve colar a imagem no corpo do email.

Se não funcionar, certamente você está com uma versão antiga do Notes. Isso funciona a partir da versão 6.5 em diante.