Visual Basic para Aplicaciones - Enviar Mail vía Outlook con Filtros

Life is soft - evento anual de software empresarial
   
Vista:

Enviar Mail vía Outlook con Filtros

Publicado por Francisco Andrés tonuko19@gmail.com (11 intervenciones) el 05/05/2015 21:17:19
Estimados, buenas tardes....
Me comunico con ustedes con el motivo de salvar algunos problemas que tengo.
Le comento:
Estoy queriendo enviar mails mediante un botón el cual me deberá controlar lo siguiente:


Tengo una Base la cual contiene en la columna "C" "NOMBRES" y en la columna "I" un control el cual se identifica como "OK" y "NO"
Lo que yo necesitaría hacer es que todos los datos del mismo nombre y que contengan el ok sean enviados en un solo mail.


Por favor... AYUDA...!


Sin-titulo
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

Enviar Mail vía Outlook con Filtros

Publicado por Francisco Andrés (11 intervenciones) el 06/05/2015 14:52:03
Tema Solucionado...
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
Imágen de perfil de xve

Enviar Mail vía Outlook con Filtros

Publicado por xve (15 intervenciones) el 06/05/2015 16:55:58
Hola Francisco, nos puedes compartir como lo has realizado?
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

Enviar Mail vía Outlook con Filtros

Publicado por Francisco Andrés (11 intervenciones) el 06/05/2015 22:12:57
Este es el código que yo use para mi caso...


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
' Abrir Archivo de Datos
 
Workbooks.Open "G:\Proyecto Mejoras Continuas\Mejoras Continuas.xlsx"
 
'Filtros Avanzados
 
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=3, Criteria1:= _
        "COLÓN"
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=9, Criteria1:= _
        "OK"
ActiveSheet.Range("$A$1:$K$1001").AutoFilter Field:=10, Criteria1:="="
 
ActiveSheet.Range("B:F").Select
 
'Enviar Mail  
 
ActiveWorkbook.EnvelopeVisible = True
 
 
With ActiveSheet.MailEnvelope
      .Introduction = "A continuación se envian Mejoras Continuas"
      .Item.To = "Dirección de Mail"
      .Item.Subject = "Asunto"
      .Item.Send
   End With
 
'Desfiltrado
Application.CutCopyMode = False
    ActiveSheet.ShowAllData
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