Existe alguna macro para envió masivo con mismo cuerpo y asusto pero diferente E-mail y adjuntos para office 365 ultima version?
Tengo un problema ya que que siempre me manda lo mismo error en el Objeto .to del objeto _MailItem uso office 365 en su ultima actualización y no puedo hacer correr una que me quede alguna para mandar el mismo correo a diferentes usuarios con diferentes archivos cada uno ojala me puedas ayudar saludos.
2 Respuestas
Estoy usando este macro pero quiero hacer el envío como en el ejemplo del envío a varios emails con diferentes attachments. https://www.todoexpertos.com/preguntas/5r4c5cuemusbdgd6/macro-para-enviar-correos-masivos-con-adjuntos-diferentes?selectedanswerid=5r4fth7ge663mbsl&nid=a4uaju4m9wq9vtejf8qaft6hi7w6lhkrhvtppxebh7v9pt6hh7tmfrejabrj&utm_source=todoexpertos&utm_medium=EmailNotification&utm_campaign=CommentedAnswer_CommentAdded
Dante. Modifiqué el nombre pero me da el siguiente error:
No se si es posible usar el formato del otro thread (Macro para envíar correos masivos con adjuntos diferentes) pero con la version de 365
Te anexo la macro para office
Sub EnviarCorreo() 'Por.Dante Amor Correo = "[email protected]" 'correo de office passwd = "pwd" 'password del correo destino = "usuario@gmailcom" 'correo del destinatario ' Application.DisplayAlerts = False Application.ScreenUpdating = False ' Dim Email As CDO.Message Set Email = New CDO.Message Email.Configuration.Fields(cdoSMTPServer) = "smtp.office365.com" Email.Configuration.Fields(cdoSendUsingMethod) = 2 With Email.Configuration.Fields .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = CLng(25) .Item("http://schemas.microsoft.com/cdo/" & "configuration/smtpauthenticate") = Abs(1) .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Correo .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = passwd .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True End With With Email .To = destino .From = Correo .Subject = "Asunto" .TextBody = "todo lo que quieras Cuerpo del correo" '.AddAttachment "archivo.xlsx" .Configuration.Fields.Update On Error Resume Next .Send End With If Err.Number = 0 Then MsgBox "El mail se envió con éxito" Else MsgBox "Se produjo el siguiente error: " & Err.Number & " " & Err.Description End If Set Email = Nothing End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Pusiste una respuesta a una pregunta. Debes crear una pregunta nueva. - Dante Amor