Cómo enviar CORREOS MASIVOS desde Excel | GRATIS | Regalo Código de la Macro VBA
Como enviar CORREOS MASIVOS con Excel | Le digo a Chat GPT que me modifique la Macro.
En este video, aprenderás cómo automatizar el proceso de envío de correos masivos utilizando Excel y una potente herramienta de inteligencia artificial llamada Chat GPT. Te mostraré paso a paso cómo crear una macro en Excel que te permitirá enviar correos electrónicos de manera eficiente a una gran cantidad de destinatarios, ahorrándote tiempo y esfuerzo.
Además, te enseñaré cómo personalizar la macro utilizando las capacidades de Chat GPT para hacer que tus correos sean más efectivos y personalizados. ¡No te pierdas esta oportunidad de optimizar tus comunicaciones por correo electrónico!
✅ Suscríbete a mi canal: https://bit.ly/2kinkxj
_____________________________________________________
✅Tienda de Plantillas PREMIUM: https://bit.ly/33qVwdY
✅Cursos online: https://ofimaticaempresarial.com/curs...
_____________________________________________________
✅Canal de Telegram: https://t.me/luisofimaticaempresarial
✅Facebook:
/ luis.ofimaticaempresarial
✅Sitio Web: https://ofimaticaempresarial.com
Bookkeeping para Negocios en Estados Unidos
✅Sitio Web: https://administrationusa.com
_____________________________________________________
✅Lic. Luis Torres
https://ofimaticaempresarial.com
https://administrationusa.com
CODIGO DE LA MACRO:
Sub SendEmails()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim Subjectline As String
Dim MessageBody As String
Dim RegEx As Object
Dim Matches As Object
Dim Match As Object
Subjectline = "NOMBRE DE MI COMPANIA S.A DE C.V"
Set OutApp = CreateObject("outlook.application")
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = "^\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If RegEx.Test(cell.Value) Then
Set OutMail = OutApp.CreateItem(0)
MessageBody = cell.Offset(0, 1).Value & cell.Offset(0, -1).Value & ". Por favor, realice el pago lo antes posible."
With OutMail
.To = cell.Value
.Subject = Subjectline
.Body = MessageBody
.Send
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
Set RegEx = Nothing
End Sub
Sub SendEmails_V2()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim Subjectline As String
Dim MessageBody As String
Dim RegEx As Object
Dim Matches As Object
Dim Match As Object
Subjectline = "NOMBRE DE MI COMPANIA S.A DE C.V"
Set OutApp = CreateObject("outlook.application")
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Global = True
RegEx.IgnoreCase = True
RegEx.Pattern = "^\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
For Each cell In Columns("B").Cells.SpecialCells(xlCellTypeConstants)
If RegEx.Test(cell.Value) Then
Set OutMail = OutApp.CreateItem(0)
MessageBody = cell.Offset(0, 1).Value & cell.Offset(0, -1).Value & ". Por favor, realice el pago lo antes posible." & vbCrLf & vbCrLf & _
"Atte," & vbCrLf & _
"Lic. Luis Torres" & vbCrLf & _
"Phone: 333-333-333" & vbCrLf & _
"WerbSite: ofimaticaempresarial.com"
With OutMail
.To = cell.Value
.Subject = Subjectline
.Body = MessageBody
.Send
End With
Set OutMail = Nothing
End If
Next cell
Set OutApp = Nothing
Set RegEx = Nothing
End Sub