............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro para enviar correo

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro para enviar correo

Mensaje por stivdiaz el Jue Ago 22, 2013 11:15 am

Buen dia, tengo una macro que mediante un boton abre la ventana para enviar el mensaje y adjunta la hoja activa, y la envia totalmente bloqueada, lo que necesito es que no envie toda la hoja bloqueda, ya que necesito q las personas que reciban la hoja puedan ingresar datos en ciertas celdas y adicional a esto puedan usar los filtros, espero y alguien pueda ayudarme con esto.

Adjunto el codigo:

Sub enviocorreo()
Dim cfo, unidad, Email, ruta, LIBRO, ahora As String
Dim LibrOrigen, LibroDestino As Workbook
Dim ProgCorreo, CorreoSaliente As Object

With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With

Set cfo = Range("I8")
Set unidad = Range("I5")
Set Email = Range("I9")
'ruta = ThisWorkbook.Path & "\Correoe\"
ahora = Application.WorksheetFunction.Text(Now(), "dd.mm.yy- hh.mm")
LIBRO = cfo & "-" & unidad & "-" & ahora & ".xlsx"

Set LibrOrigen = ActiveWorkbook
ActiveSheet.Copy
Set LibroDestino = ActiveWorkbook

Set ProgCorreo = CreateObject("Outlook.Application")
Set CorreoSaliente = ProgCorreo.createitem(0)

With LibroDestino
With ActiveSheet
.Unprotect
With Range("I5:I9")
.Copy
.PasteSpecial xlPasteValues
End With
.Shapes.Range(Array("CommandButton2")).Delete
.Shapes.Range(Array("CommandButton1")).Delete
.Shapes.Range(Array("ToggleButton1")).Delete
.Cells.Locked = True
.Protect Password = "1012318700"

End With
.SaveAs ruta & LIBRO

On Error Resume Next
With CorreoSaliente
.to = Email
.CC = ""
.BCC = ""
.Subject = "Envio de la Planilla No." & cfo
.Body = "Buen Día.:" & Chr(13) & _
"Envío la planilla correspondiente a este recorrido, según nuestras politicas." _
& Chr(13) & "Saludos..."
.Attachments.Add LibroDestino.FullName
.Display 'o .Send para enviar sin verlo
End With
On Error GoTo 0
.Close
End With

Set CorreoSaliente = Nothing
Set ProgCorreo = Nothing

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub

stivdiaz

Masculino Cantidad de envíos : 1
Edad : 32
Ciudad - Pais : Colombia
Version de Excel : 2010
Fecha de inscripción : 22/08/2013

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.