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