Office: (Office 2007) Problem mit Makrocode

Hallo,

habe mit dem unten eingefügtem VBA-Code ein Problem.

Dies Makro hat auf meinem alten PC (Win7 & Excel2007) einwandfrei funktioniert. Nun habe ich nen neuen PC bekommen (ebenfalls Win7), doch auf diesem funktioniert das Ding nicht http://www.office-hilfe.com/support/images/smilies/confused.png

Es soll halt einmal als PDF UND als Papierausdruck gedruckt werden.

Wer kann mir da helfen und den Code richtig stellen???

Danke im Vorraus,

René

Sub PDFEpson()

Dim sBlatt As String
Dim sPdfDateiL15 As String
Dim sPdfDateiL13 As String
Dim OutApp As Object
Dim OutMail As Object

' auf welches Tabellenblatt greifen wir später zu, um E-Mail, Betreff und Inhalt auszulesen?
sBlatt = "ActiveSheet"

' unter welchem Namen sollen die PDF-Dateien abgespeichert werden?
sPdfDateiL15 = "E:\Speicherort\" & Cells(15, "L").Value & ".PDF"

' speichert das aktuelle Blatt (=ActiveSheet) als PDF
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=sPdfDateiL15, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

' Ausdrucken...
ActiveSheet.PrintOut

End Sub

 

Hallo René,

nachdem du es unterlassen hast,

• die Fehlerzeile (an der der Debugger angehalten hat - farblich hinterlegte Codezeile),
• die Fehlernummer und
• die Fehlermeldung

mitzuteilen, ist ein möglicher Hilfeversuch zum Scheitern verurteilt.

Ich kann nur Anregungen/Vermutungen fürs Suchen geben:
Wenn du am VBA-Code nichts geändert hast, muss es entweder an der Hardware oder an der Software (Betriebssystem, Office) liegen.
Oder stimmt der Speicherort für die PDF-Datei nicht mehr oder ist der Zugriff auf dieses Verzeichnis nicht (mehr) erlaubt (Variable 'sPdfDateiL15') ?

 

Hallo,

sorry, mein Fehler :-)
Habe es grade hinbekommen... War ein Schreibfelher drin :-)

Nun habe ich aber hier noch ein Problem:
Bezug zu Outlook herstellen...
Set oApp = CreateObject("OUTLOOK.Application")
For i = 1 To oApp.Session.Accounts.Count
olOutAddressIn = oApp.Session.Accounts.Item(3).SmtpAddress
olOutAddressName = oApp.Session.Accounts.Item(3).DisplayName
vntTempArray = Split(olOutAddressIn, "MAILADRESSE")
olOutAddressOut = vntTempArray(0)
If olOutAddressOut = "FIRMENNAMEN" Then Exit For
Next i
Set oApp = Nothing

' ...damit wir eine neue E-Mail erzeugen können
Set oApp = CreateObject("OUTLOOK.Application")
With oApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.To = "MAILADRESSE"
.Subject = "XYZ"
.htmlBody = "Sehr geehrte Damen und Herren,Dies ist nur ein Test." & _
"Gruß, Max." & olOldBody
' Anhang hinzufügen: ja welchen denn? Dann also beide Dateien???
.Attachments.Add sPdfDateiF5
Set .SendUsingAccount = .Session.Accounts.Item(olOutAddressName)

' ...und abschicken
OutMail.Send

' Objekte sauber auflösen
Set OutMail = Nothing
Set OutApp = Nothing

End With

End Sub

------------
Und auch das Druckmakro druckt nicht mehr per ActiveSheet sondern nur noch per Tabellennamen. Hat vorher auch funktioniert.

Sub Drucken()

Sheets("ActiveSheet").PrintOut

End Sub


Gruß,

René

 

Hallo René,

Code:

Option Explicit

Sub EMailVersenden()
   
   'Deklaration Outlook-Objekt und MailItem
   Dim oApp As Object
   Const olMailItem = 0
   
   'Deklaration div. Hilfsvariabler, etc.
   Dim i%, olOutAddressIn$, olOutAddressName$, olOutAddressOut$
   Dim vntTempArray()
   Dim olOldBody$, sPdfDateiF5$
    
   'Zuweisung Outlook-Instanz im Late-Binding-Verfahren:
   Set oApp = CreateObject("OUTLOOK.Application")

   'Diverse Sitzungskonto-Ermittlungen, wie gehabt:
   With oApp.Session.Accounts
      For i = 1 To .Count
         olOutAddressIn = .Item(3).SmtpAddress
         olOutAddressName = .Item(3).DisplayName
         vntTempArray = Split(olOutAddressIn, "MAILADRESSE")
         olOutAddressOut = vntTempArray(0)
         If olOutAddressOut = "FIRMENNAMEN" Then Exit For
      Next i
   End With
'  Set oApp = Nothing

'  ...damit wir eine neue E-Mail erzeugen können
'  Set oApp = CreateObject("OUTLOOK.Application")

   With oApp.CreateItem(olMailItem)
     .GetInspector.Display
     
     olOldBody = .htmlBody
     .To = "MAILADRESSE"
     .Subject = "XYZ"
     .htmlBody = "Sehr geehrte Damen und Herren," & vbNewLine & vbNewLine & _
                 "Dies ist nur ein Test." & vbNewLine & vbNewLine & _
                 "Gruß, Max. " & vbNewLine & vbNewLine & _
                 olOldBody
                 
     ' Anhang hinzufügen: ja welchen denn? Dann also beide Dateien???
     .Attachments.Add sPdfDateiF5
     
     Set .SendUsingAccount = .Session.Accounts.Item(olOutAddressName)
    
     ' ...und abschicken
     .Send
    
   End With
   
   ' Objekte sauber auflösen
   Set oApp = Nothing

End Sub

Code:

Sub Drucken()
   ActiveSheet.PrintOut
End Sub

 

Hallo,

nun haut es hin. Danke für die Hilfe.

Gruß,

René