Firma HTML para enviar por correo desde excel
Publicado por Alejandro (2 intervenciones) el 14/09/2019 13:59:18
Buenas
Hace algun tiempo cree una macro personalizada siguiendo varios tutoriales de internet dado que mis conocimientos son limitados, ahora quiero dar un pasito más e insertarle una firma HTML a ese correo automatico. Es esta
Tengo la firma que quiero insertar en HTML pero no soy capaz de insertarla en la macro sin que me de error, alguna sugerencia?
Hace algun tiempo cree una macro personalizada siguiendo varios tutoriales de internet dado que mis conocimientos son limitados, ahora quiero dar un pasito más e insertarle una firma HTML a ese correo automatico. Es esta
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Private Sub cmdEnviarEmail_Click()
'
' Declaramos variables
'
Dim OutlookApp As Outlook.ApplicationDim MItem As Outlook.MailItemDim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Empresa As String
Dim Firma As String
Dim HTMLBody As String
'
Set OutlookApp = New Outlook.Application
'
'Recorremos la columna EMAIL
'
For Each cell In Range("B2:B3")
'
'Asignamos valor a las variables
'
Asunto = "Facturación"
Destinatario = cell.Offset(0, -1).Value
Correo = cell.Value
Empresa = cell.Offset(0, 1).Value
Facturacion = cell.Offset(0, 2).Value
'Cuerpo del mensaje
'
HTMLBody = "<html>" & _
"<body>" & _
"<p>Estimado " & Destinatario & _
"</p>" & _
"<p>Su empresa " & Empresa & "ha facturado este mes " & Facturacion & _
"</p>" & _
"<p> Atentamente </p>" & _
"<p> Alejandro Marcos </p>" & _
"</body>" & _
"</html>"Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Correo
.Subject = Asunto
.HTMLBody = HTMLBody
.Send'
End With
'
Next
'
End Sub,Tengo la firma que quiero insertar en HTML pero no soy capaz de insertarla en la macro sin que me de error, alguna sugerencia?
Valora esta pregunta
0