Siguiendo con los aportes que siempre son tan buenos como los ya publicados y que nos ayudan a mejorar nuestros trabajos y dan ideas para hacer otras cosas mas atractivas, le dejo a continuación un nuevo aporte el cual y como su nombre lo indica; es para envío masivo de mensajes.
Se destaca lo siguiente:
Los correos se encuentran en la hoja"Destinatarios". Cuenta con un bucle que recorre cada fila e insertar el correo. también se aplica al .CC y el Bcc. así como también el Subject, el Body.
No es necesario escribir el "Buenos días", "Buenas tardes", o "Buenas noches" ya que cuenta con un procedimiento el cual, según la hora mostrar el mensaje correspondiente a la hora Ejemplo
Sub Horas()
Hora = (Now - Int(Now)) * 24
Select Case Hora
Case 6 To 12
Saludo = "Buenos dias "
Case 12 To 18
Saludo = "Buenas tardes "
Case Else
Saludo = "Buenas noches "
End Select
End Sub
El cual tambien lo verán asi:
Dim AWorksheet As Worksheet
Dim Sendrng As Range
Dim rng As Range
'Para que aparezca la hora de acuerdo al Sistema. Se invoca un procedimiento para tal fin
Horas '<--------aquí es el codigo para la hora del mensaje
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Fill in the Worksheet/range you want to mail
'Note: if you use one cell it will send the whole worksheet
Set Sendrng = Hoja1.Range("A2:G27")
'Remember the activesheet
Set AWorksheet = ActiveSheet
'Create the mail and send it
With Sendrng
' Select the worksheet with the range you want to send
.Parent.Select
'Remember the ActiveCell on that worksheet
Set rng = ActiveCell
'Select the range you want to mail
.Select
' Create the mail and send it
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
' Set the optional introduction field thats adds
' some header text to the email body.
.Introduction = Saludo & vbNewLine & vbNewLine & "Estimado Señor:" & Destinatarios &
' ^ Aqui arriba está. El saludo
vbNewLine & vbNewLine & Body
' In the "With .Item" part you can add more options
Incluye la hoja que pondremos en el cuerpo del mensaje el cual seria el reporte de la información que deseamos mostrar a los destinatarios.
Por ultimo y no menos importante, indica también en el saludo el nombre del destinatario. Todo esto de acuerdo a la información que ustedes les indique a la hoja "Destinatario". Solo resta esperar por sus comentarios al respecto y si presentan alguna novedad, por favor me lo informan Me gustaría incluir la firma al final del mensaje. Pero no he dado con ello. Si alguien tiene alguna información al respecto, por favor háganla saber. Mi respetos para todos.
Buenas noches
Siguiendo con los aportes que siempre son tan buenos como los ya publicados y que nos ayudan a mejorar nuestros trabajos y dan ideas para hacer otras cosas mas atractivas, le dejo a continuación un nuevo aporte el cual y como su nombre lo indica; es para envío masivo de mensajes.
Se destaca lo siguiente:
Sub Horas() Hora = (Now - Int(Now)) * 24 Select Case Hora Case 6 To 12 Saludo = "Buenos dias " Case 12 To 18 Saludo = "Buenas tardes " Case Else Saludo = "Buenas noches " End Select End SubDim AWorksheet As Worksheet Dim Sendrng As Range Dim rng As Range 'Para que aparezca la hora de acuerdo al Sistema. Se invoca un procedimiento para tal fin Horas '<--------aquí es el codigo para la hora del mensaje On Error GoTo StopMacro With Application .ScreenUpdating = False .EnableEvents = False End With 'Fill in the Worksheet/range you want to mail 'Note: if you use one cell it will send the whole worksheet Set Sendrng = Hoja1.Range("A2:G27") 'Remember the activesheet Set AWorksheet = ActiveSheet 'Create the mail and send it With Sendrng ' Select the worksheet with the range you want to send .Parent.Select 'Remember the ActiveCell on that worksheet Set rng = ActiveCell 'Select the range you want to mail .Select ' Create the mail and send it ActiveWorkbook.EnvelopeVisible = True With .Parent.MailEnvelope ' Set the optional introduction field thats adds ' some header text to the email body. .Introduction = Saludo & vbNewLine & vbNewLine & "Estimado Señor:" & Destinatarios & ' ^ Aqui arriba está. El saludo vbNewLine & vbNewLine & Body ' In the "With .Item" part you can add more optionsTodo esto de acuerdo a la información que ustedes les indique a la hoja "Destinatario".
Solo resta esperar por sus comentarios al respecto y si presentan alguna novedad, por favor me lo informan
Me gustaría incluir la firma al final del mensaje. Pero no he dado con ello.
Si alguien tiene alguna información al respecto, por favor háganla saber.
Mi respetos para todos.
Correos.zip