Visual Basic - Juntar variables para enviar correo

Life is soft - evento anual de software empresarial
 
Vista:

Juntar variables para enviar correo

Publicado por DANIELA (2 intervenciones) el 07/05/2020 01:18:40
Hola!

Un gusto,

Estoy empezando en esto y quiero saber si alguno sabe como para el envio masivo de correos puedo juntar 2 correos

1
2
3
4
Asunto = "Proveedor creado -s."
Destinatario = cell.Offset(0, -5).Value
Correo = cell.Value  AQUI DEBERIA TENER OTRO VALOR ADICIONAL que seria la fila de al lado, para que el correo automatico sea enviado simultaneamente a los 2 dentinatarios
VENDOR = cell.Offset(0, 2).Value

Si alguien sabe... me ayuda porfa
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 Antoni Masana
Val: 1.259
Plata
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Juntar variables para enviar correo

Publicado por Antoni Masana (560 intervenciones) el 07/05/2020 11:33:44
No entiendo que es lo que quieres juntar, dos destinatarios, dos textos, ¿Dos que?

1
2
3
4
5
Asunto = "Proveedor creado -s."
Destinatario = cell.Offset(0, -5).Value
Correo = cell.Value         ' --- AQUI DEBERIA TENER OTRO VALOR ADICIONAL que seria la fila de al lado, para que
                            '     el correo automatico sea enviado simultaneamente a los 2 dentinatarios
VENDOR = cell.Offset(0, 2).Value

Si como dice en el comentario es para dos destinatarios se hace como cuando envías un correo normal con Outlook u otro:

1
Destinatario = Range("A1") & ";" & Range("A2")

Si en variable Correo pones el destinatario ¿Que pones en la variable Destinatario?

Si no respondo a tu pregunta sube un ejemplo y da una explicación más detallada.

Saludos.
\\//_
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

Juntar variables para enviar correo

Publicado por daniela (2 intervenciones) el 07/05/2020 22:39:18
Estoy creando una excell donde envio un mail automatico a una lista eterna, con distinta informacion dependiendo del proceso que van cumpliendo.

Proceso 1 = correo al proveedor
Proceso 2 = correo al solicitante
Proceso 3 = Correo a ambos con la misma informacion.
EJ: PROVEEDOR (PRIMER CORREO) SOLICITANTE (SEGUNDO CORREO).

En este ultimo, el rango que tomo para esta macro es la celda de correo, (I3:I200) y esta perfecto, pero que pasa si el rango son 2 celdas? (I3:I200) + (B3:B200)

1
Correo = cell.Value  (actual)


No sé si me explico bien, soy nueva en esto, disculpa. Ojalá puedas Ayudarme.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub EnviarEmail()
 
 
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim cell As Range
Dim Asunto As String
Dim Correo As String
Dim Destinatario As String
Dim Saldo As String
Dim Msg As String
    '
    Set OutlookApp = New Outlook.Application
 
    '
    For Each cell In Range("I3:I200") ((en este rango esta la lista de los proveedores, y necesito agregar la del solicitante que esta en la celda B.))
 
        Asunto = "Proveedor creado -."
        Correo = cell.Value
        VENDOR = cell.Offset(0, 2).Value
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