ich kann mit diesen Code eine PDF erstellen in Excel 2007 und diese anschließend per Email versenden.
Sub SeriendruckAV()
'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object
Dim olOldBody As String
Dim wksData As Worksheet, wksPrint As Worksheet
Dim iRow As Integer
Dim FolderPDF As String, File_PDF As String
On Error GoTo Fehler
Set wksData = Worksheets("Mitglieder")
Set wksPrint = ActiveWorkbook.Worksheets("AV")
iRow = 6
ActiveWorkbook.Worksheets("AV").Unprotect PWs
FolderPDF = ActiveWorkbook.Path & Application.PathSeparator & "_11_E-Mail"
If Dir(FolderPDF, vbDirectory) = "" Then
VBA.MkDir FolderPDF
End If
FolderPDF = FolderPDF & Application.PathSeparator
Do Until IsEmpty(wksData.Cells(iRow, 1))
If UCase(wksData.Cells(iRow, 8).Value) "" Then 'Wert in Spalte D prüfen
wksPrint.Range("T1").Value = wksData.Cells(iRow, 1).Value 'lfd. Nr
wksPrint.Calculate '? - wenn Formelberechnungen aktualisiert werden müssen
File_PDF = FolderPDF & wksPrint.Range("A13").Text & ".pdf" 'Zellen und verbindenden _
Text ggf. anpassen
wksPrint.ExportAsFixedFormat Type:=xlTypePDF, Filename:=File_PDF, _
Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)
With strEmail
Set .SendUsingAccount = .Session.Accounts.Item("info@skkwillmering.de")
olOldBody = .htmlBody
.To = wksData.Cells(iRow, 9).Value
.Subject = "Einladung ausserordentliche Versammlung"
.body = "Hallo" & " " & wksPrint.Range("A13").Value & "," & Chr(13) & Chr(13) & _
_
"anbei deine Einladung zur ausserordentlichen Versammlung zur Info."
.Display 'Mail nur Anzeigen Nicht senden
VBA.SendKeys "^{END}", True
'Einfügen einer bestimmten Signatur
strSignatur = "SKK Willmering"
'strSignatur = "meineFirmenSignatur"
.GetInspector.CommandBars.Item("Insert").Controls("Signatur").Controls(strSignatur). _
_
Execute
.Attachments.Add File_PDF
.send
End With
Kill File_PDF
End If
iRow = iRow + 1
Loop
ActiveWorkbook.Worksheets("AV").Protect PWs
Err.Clear
Fehler:
End Sub
Das Problem ist nur, dass auf einem anderen PC auch Excel 2007 installiert ist, aber die PDF nicht erzeugt wird. Es wird lediglich die Email erzeugt und dann kommt die Fehler Meldung.
An was kann dies liegen? Muss man hier vorher ein Addin installieren für die PDF Erzeugung?