AW: Mit EXCEL 2007 als 2003 zwischenspeichern
26.12.2007 10:11:45
Erich
Hallo,
nochmals danke für die schnelle Rückmeldung. Beschreibung der Vorgehensweise stimmt genau.
Allerdings kann ich mit der Abwicklung im "Kompatibilitätsmodus" nichts anfangen.
Dies ist der komplette Code für den Mailversand, aktiviert mit EXCEL2007:
Sub Mailversand()
Dim strPath As String, strFile As String
Dim strMitgl(1 To 20) As String, strAnr(20) As String, strEml(20) As String
Dim strsh20 As String, strsh21 As String, strsh22 As String
Dim ii As Integer, jj As Integer, i As Integer
With Sheets("Mails")
For ii = 1 To 12 '''''''''' Anpassung erforderlich !!!!!!!!!!!!!!!!!!!!
strMitgl(ii) = .Cells(ii, 1)
strAnr(ii) = .Cells(ii, 2)
strEml(ii) = .Cells(ii, 3)
Next ii
End With
strsh20 = "Zentrale"
strsh21 = "AlleSpielerV75"
For ii = 1 To 12 '''''''''' Anpassung erforderlich !!!!!!!!!!!!!!!!!!!!
Application.ScreenUpdating = False
Sheets(Array(strMitgl(ii), strsh20, strsh21)).Copy ' 4 Sheets werden ausgewählt
For jj = 1 To Sheets.Count
Sheets(jj).Activate
Call Verknuepfungen_löschen
Next jj
Application.CutCopyMode = False
strPath = "C:\Windows\Temp\"
strFile = strPath & strMitgl(ii) & ".xls"
With ActiveWorkbook
.SaveAs strFile ''''''''', FileFormat:=xlExcel8 ERGÄNZUNG?
Senden strFile, strAnr(ii), strEml(ii) ' mit 3 Parametern
.Close
End With
Kill strFile 'Datei löschen
Next ii
Application.ScreenUpdating = True
End Sub
Sub Senden(AWS As String, Anred As String, MailAdr As String)
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = MailAdr
.Subject = "Aktuelle Abrechnungsübersicht V75"
.attachments.Add AWS
.Body = "Hallo " & Anred & "," _
& vbCrLf & vbCrLf & "anbei die aktuellste Abrechnungsübersicht." _
& vbCrLf & vbCrLf & "mfg Markus"
.Display
.Send
End With
End Sub
Sub Verknuepfungen_löschen()
On Error GoTo Errorhandler
Do
Cells.Find(What:=".XLS", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Loop
Errorhandler:
End Sub
Was müsste ich da für den Kompabilitätsmodus einfügen?
Besten Dank.
mfg