Enviar email
Hola, tengo una pregunta, ojala puedan ayudarme, tengo un libro, quiero filtrar las filas que tengan un determinado contenido en una celda, y esta selección enviarla por mail (varios emails), (tengo outlook instalado como gestor de correo) y quiero hacer esto para tres filtros distintos, podría decirme alguien si esto es posible, y darme una idea de como hacerlo. Se lo agradeceré mucho.
Mi email [email protected]. Muchas gracias por adelantado.
Mi email [email protected]. Muchas gracias por adelantado.
1 respuesta
Respuesta de cristian2005
1
Acá te envío una macro que selecciona lo que deseas imprimir, lo copia a otra hoja y luego lo manda por mail.
Espero te sirva.-
Private Sub Imprime_Click()
ActiveWindow.SmallScroll Down:=7
Range("A19:I70").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").ColumnWidth = 22.86
Application.Dialogs(xlDialogSendMail).Show _
arg1:="coloca aqui los mails de los Clientes a enviar separados por ;", _
arg2:="Aca iria el asunto"
ActiveWorkbook.Close _
SaveChanges:=False
End Sub
Espero te sirva.-
Private Sub Imprime_Click()
ActiveWindow.SmallScroll Down:=7
Range("A19:I70").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("A:A").ColumnWidth = 22.86
Application.Dialogs(xlDialogSendMail).Show _
arg1:="coloca aqui los mails de los Clientes a enviar separados por ;", _
arg2:="Aca iria el asunto"
ActiveWorkbook.Close _
SaveChanges:=False
End Sub
