Jump to content

Search the Community

Showing results for tags 'email'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • ¿Eres nuevo? Lee las Normas y Reglas del Foro
    • Presentaciones
  • Dudas y consultas sobre Excel
    • Excel General
    • Macros y programación VBA
    • Power BI
    • Access, Word, Power Point, Outlook etc...
    • Comparte tus aportes
  • Sobre ayudaexcel.com
    • Solicitud proyectos
    • Blog
    • Plantillas
    • Productos de ayudaexcel
    • Megaguías
  • Otras aplicaciones de Microsoft Office
  • Variedades
    • Cafeteria Ayuda Excel
    • Temas resueltos
    • Temas Abandonados
  • Archive
  • Resources
    • Ideas y aportes

Categories

  • Tools
  • Add-ins
  • Store
  • Finance
  • Dpto. Admin
  • Purchasing
  • Agendas
  • Data registry

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Skype


Facebook


Twitter


Localización:


Interests


Mi versión de Excel

Found 2 results

  1. Buenas, estoy teniendo problemas para poder enviar un correo preredactado a toda la columna, en esta caso la "D"solo se envia a la direccion de la celda D4, quisiera saber que estoy haciendo mal. Desde yamuchas gracias. adjunto archivo y codigo de la macro Sub EnviarEmail() ' ' Declaramos variables ' 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 ' 'Recorremos la columna EMAIL ' For Each cell In Range("d4:d302") ' 'Asignamos valor a las variables ' Asunto = "Aviso de vencimiento" Destinatario = [A11] Correo = cell.Value Saldo = Format(cell.Offset(0, 1).Value, "$#,##0") FechaVencimiento = Format(cell.Offset(0, 2).Value, "dd/mmm/yyyy") ' 'Cuerpo del mensaje ' Msg = Destinatario ' Set MItem = OutlookApp.CreateItem(olMailItem) With MItem .To = Range("d4:d302") .Subject = Asunto .Body = Join([transpose(b4:b14)], vbCrLf) .Send ' End With ' Next ' Set MItem = Nothing End Sub prob mail.xlsm
  2. Necesito poder extraer desde Excel VBA la lista global de direcciones de Outlook. No consigo información. ¿Alguien puede darme una pista? Juan Luis.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png