...an die Cracks...:-)
04.02.2004 16:19:23
Marco
1. Wenn ich das Sheet versende, bekommt der Empfänger immer die Meldung, dass das Sheet Verknüpfungen zu anderen Sheets enthält...
Vor versand werden in der Tat von einem anderen Sheet Daten übertragen.
Wie kann ich diese Meldung verhindern ? Nur als Text senden ist nicht ganz möglich, da ich dem Empfänger auch ein Makro/Button sende, welches funzen muss.
2. Wird die zu versendende Datei unter "Antrag" + dem Namen des Versenders gespeichert. Bis hier hin geht es auch. Aber die Schliessung bekomme ich nicht hin. (book) ist eine Variable von mir :-)
Hilfe..
Vielen Dank
Marco
Sub AntragVersenden()
On Error GoTo faus
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Application.ScreenUpdating = False
With Sheets("Jahresplan")
.Unprotect Sheets("Jahresplan").Range("W10").Value
End With
Sheets("Jahresplan").Range("W12").FormulaR1C1 = "=RAND()*1000000"
With Workbooks("Arbeitszeiterfassung.xls").Sheets("Antrag")
.Unprotect "segelboot"
.Range("D22").Value = Sheets("Jahresplan").Range("W12").Value
End With
Call Mitarbeiterschutz
Workbooks("Arbeitszeiterfassung.xls").Sheets("Antrag").Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.Activate
.SaveAs _
Filename:="Antrag" & Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Range("B6").Value, _
FileFormat:=xlWorkbookNormal
End With
ActiveWorkbook.Sheets("Antrag").Protect Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Range("W10").Value
Dim AWS As String
AWS = ActiveWorkbook.FullName
InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Range("C7").Value
.Subject = Workbooks("Arbeitszeiterfassung.xls").Sheets("Antrag").Range("A2").Value & " von " & Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Range("B6").Value & " Antragsdatum: " & Format(Date, "dd.mm.yy")
.Body = vbCrLf & "Guten Tag," & vbCrLf & "anbei ein Antrag, mit der Bitte um Eintragung:" & vbCrLf & vbCrLf & "Liebe Grüsse " & Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Range("B6")
.attachments.Add AWS
.Display
End With
Dim book As Object
Set book = "Antrag" & Workbooks("Arbeitszeiterfassung").Sheets _("Jahresplan").Range("B6").Value
'HIIIIIIIIIIIIIIIEEEEEEEEEEEEERRRR'
Workbooks(book).Close
Set OutApp = Nothing
Set Nachricht = Nothing
Application.DisplayAlerts = True
Workbooks("Arbeitszeiterfassung.xls").Sheets("Antrag").Protect "segelboot"
Workbooks("Arbeitszeiterfassung.xls").Sheets("Jahresplan").Select
faus:
Exit Sub
End Sub