brunopare

Olá amigos, estou com uma pequena demanda no meu serviço onde tenho que enviar alguns emails para vários clientes de uma planilha. O código já esta pronto e já consigo enviar os emails, porém me foi solicitado que eu realize uma pequena formatação no corpo do email algo como diminuir a fonte e colorir a última frase. Meu supervisor me orientou a realizar a alteração utilizando html. Porém não sei como posso fazer isso. Existe alguma maneira de fazer isso sem que eu precise reescrever todo o código ? Eu queria deixar a frase formatada da seguinte maneira > Esta é uma mensagem automática, favor não responder este e-mail. Para dar sugestões, tirar dúvidas ou obter mais informações sobre os serviços prestados ligue xxxxxxx - CENTRAL DE ATENDIMENTO - CALL CENTER ou acesse xxxxxxxxx. Censurei o nome da empresa e algumas informações por motivos óbvios. Set objeto_outlook = CreateObject("Outlook.Application") 'objeto outlook = aplicação outlook, ao definir um objeto para uma variável usamos o Set For linha = 2 To 4 'agora só trocar onde temos o número da linha para a variável linha Set Email = objeto_outlook.createitem(0) ' cria um item dentro do programa outlook ou seja um novo email dentro do outlook Email.display ' mostra o email para vermos o que esta acontecendo Email.SentOnBehalfOfName = "xxxxxxxxxxxxxxxxxxxxxxxx" Email.To = Cells(linha, "E").Value ' destinatário linha 2 coluna 5 'Email.cc = "chefe@gmail.com" 'copia 'Email.bcc = "diego@gmail.com" 'copia oculta Email.Subject = XXXXXXXXXXX– xxxxxxxxxxxxxxxxxxxxxxxx " & Cells(linha, "C").Value & " OS " & Cells(linha, "A").Value ' Assunto" 'Concatena o item da linha 2, coluna 2 com uma vírgula, Chr(10) = Enter Email.Body = "Prezado(a), " & Cells(linha, "B").Value & Chr(10) & Chr(10) _ & "Segue comunicação de Substituição xxxxxxxxxx da xxxxxxxxxxxxxx " & Cells(linha, "C").Value & "." & Chr(10) _ & "Favor desconsiderar o contato caso já tenha recebido a comunicação." & Chr(10) & Chr(10) _ & "Atenciosamente," & Chr(10) & Chr(10) _ & "Departamento de Operações" & Chr(10) & Chr(10) _ & "Esta é uma mensagem automática, favor não responder este e-mail. " _ & "Para dar sugestões, tirar dúvidas ou obter mais informações sobre os serviços prestados ligue xxxxxxx - CENTRAL DE ATENDIMENTO - CALL CENTER ou acesse xxxxxxxxx" ' Prezado Fulano 'Anexando arquivo no email Email.Attachments.Add (Cells(linha, "AE").Value) 'Finalmente enviamos o email Email.send Next End Sub

Valeu pessoal ajudou muito :)

Olá sou novo por aqui, comecei a trabalhar numa gráfica rápida e tive que aprender a mexer no Corel de forma rápida, tenho algumas dúvidas ainda hahaha. Bom eu teria que colocar essa imagem no tamanho de 90x110 cm, eu consegui porém tive que mexer na qualidade da imagem, gostaria de saber se existe alguma forma de enquadrar imagens em tamanhos maiores ou menos sem mexer muito na qualidade das imagens (digo procuro formas alternativas daquela de puxar a imagem pelas "beradas" xD" ), obrigado desde já Att. Bruno