Buenas gente! Les comento que me falta una variable para terminar la Macro que les voy a detallar y no se como ponerla.
Esta Macro lo que hace es enviar por mail cada hoja a cada mail que esta detallado en la celda B2, por ejemplo de la hoja Eje.
Lo que yo necesito hacer para terminar la Macro es que si la celda D12=0 no la mande por mail (esto se debe repetir por cada hoja que agregue)...
La macro es esta:
Private Sub CommandButton1_Click()
On Error GoTo ControlError
Dim Sourcewb As Workbook, Destwb As Workbook
Dim TempFilePath As String, TempFileName As String
Dim strdate As String, strTo As String, StrAsunto As String
Dim StrMsg As String, StrFirma1 As String, StrFirma2 As String
Dim OutApp As Outlook.Application, OutMail As Outlook.MailItem
Dim nHojas As Integer
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set Sourcewb = ActiveWorkbook
StrAsunto = Worksheets(1).Range("B17").Text
StrMsg = Worksheets(1).Range("B18").Text
StrFirma1 = Worksheets(1).Range("B19").Text
StrFirma2 = Worksheets(1).Range("B5").Text
For nHojas = 6 To Sheets.Count
Sourcewb.Activate
Worksheets(nHojas).Activate
strTo = Worksheets(nHojas).Range("B2").Text
If strTo = "" Then
MsgBox "No existe correo asociado en la hoja especificada :" & ActiveSheet.Name & ", Verifique por favor.", vbOKOnly
Exit Sub
End If
ActiveSheet.Copy
Set Destwb = ActiveWorkbook
TempFilePath = Environ$("temp") & "\"
TempFileName = "Autorizaciones RC del Día - " & ActiveSheet.Name
With Destwb
.SaveAs TempFilePath & TempFileName & ".xls", FileFormat:=-4143
.SendMail strTo, StrAsunto & ActiveSheet.Name
'Set OutApp = New Outlook.Application
'Set OutMail = OutApp.CreateItem(olMailItem)
'With OutMail
' .Recipients.Add (strTo)
' .Subject = StrAsunto & ActiveSheet.Name & " Fecha :" & strdate
' .Body = StrMsg & vbCrLf & vbCrLf & vbCrLf & vbCrLf & StrFirma1 & vbCrLf & StrFirma2
' .Attachments.Add Destwb.FullName
' .Send
'End With
.Close
Set OutMail = Nothing
Set OutApp = Nothing
End With
Kill TempFilePath & TempFileName & ".xls"
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Next
Exit Sub
ControlError:
MsgBox "Se a detectado un error :" + Err.Number, vbCritical
End Sub[/CODE]
Desde ya mil gracias!!!
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas gente! Les comento que me falta una variable para terminar la Macro que les voy a detallar y no se como ponerla.
Esta Macro lo que hace es enviar por mail cada hoja a cada mail que esta detallado en la celda B2, por ejemplo de la hoja Eje.
Lo que yo necesito hacer para terminar la Macro es que si la celda D12=0 no la mande por mail (esto se debe repetir por cada hoja que agregue)...
La macro es esta:
Desde ya mil gracias!!!