Excel - Macros para envio masivo de correos con firma predeterminada

   
Vista:

Macros para envio masivo de correos con firma predeterminada

Publicado por Ignacio (1 intervención) el 03/03/2016 18:32:34
Hola buen día ojala pudieran ayudarme ya que no he logrado encontrar una solución a mi problema que es el siguiente... tengo una macro que hace envíos masivos de correos electrónicos por medio de outlook pero al momento de enviar no envía la firma predeterminada que tiene mi correo y quisiera saber si alguien puede ayudarme u orientarme para poder hacer que esto sea posible dejo el código que estoy utilizando


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub correo()
 
    col = Range("H1").Column
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        Set dam = CreateObject("outlook.application").createitem(0)
        dam.To = Range("B" & i) 'Destinatarios
        dam.CC = Range("C" & i) 'Con copia
        dam.Bcc = Range("D" & i) 'Con copia oculta
        dam.Subject = Range("E" & i) '"Asunto"
        dam.body = Range("F" & i) '"Cuerpo del mensaje"
        '
        For j = col To Cells(i, Columns.Count).End(xlToLeft).Column
            archivo = Cells(i, j)
            If archivo <> "" Then dam.Attachments.Add archivo
        Next
        dam.send
        'dam.display
    Next
    MsgBox "Correos enviados", vbInformation, "SALUDOS"
End Sub


espero puedan ayudarme con mi problema... de antemano MIL GRACIAS!!! :D
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Macros para envio masivo de correos con firma predeterminada

Publicado por Andres Leonardo (491 intervenciones) el 03/03/2016 23:59:51
Intenta


declara
1
2
3
4
5
6
7
8
9
10
11
12
Dim strbody As String
Dim SigString As String
Dim Signature As String
 
 
If Dir(SigString) <> "" Then
        Signature = GetBoiler(SigString)
Else
        Signature = ""
End If
 
Objetocrroreo.Body = strbody & vbNewLine & vbNewLine & Signature
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar