Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Kann mir jemand den Fehler in meinem Code nennen???
zurück: e-Mailtext auslesen und als Variable benutzen weiter: "DieseOutlookSitzung" nicht vorhanden kein VBA mög Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Suko4780
Gast


Verfasst am:
12. Dez 2006, 11:12
Rufname:

Kann mir jemand den Fehler in meinem Code nennen??? - Kann mir jemand den Fehler in meinem Code nennen???

Nach oben
       Version: Office 2003

Hallo!
Wie ich hier schon mal gepostet hatte bastel ich als VBA-Newbie gerade an einem Programm welches aus Outlook heraus eine Word-Vorlage öffnen soll und dort Daten aus einem ausgewählten Kontakt eintragen soll. Dies funktioniert mit dem folgenden Code auch eigentlich ganz gut: (Die Variablen pfad und textmarke 1-5 sind als Private Const angelegt)

Code:

Sub WordMitBestehendemDokumentStarten1()
  Dim wdAnw As Object
  Dim wdDok As Object
  Dim dat As Boolean
  Dim faxNr As String
  Dim objItem As ContactItem
  Dim olselection As Selection
  Dim vorname, nachname, anrede, firma As String
 
  'Ermittlung der Daten des ausgewählten Kontakts


  Set olselection = Application.ActiveExplorer.Selection
 
  For Each objItem In olselection
    vorname = objItem.FirstName
Debug.Print vorname
    nachname = objItem.LastName
Debug.Print nachname
    faxNr = objItem.BusinessFaxNumber
    anrede = objItem.Title
    firma = objItem.CompanyName
  Next objItem
     
  'Prüfung ob es die Vorlage überhaupt gibt
  dat = DatExist(Pfad)
 
  'Wenn es sie gibt wird die Vorlage geöffnet
  If dat = "Wahr" Then
    Set wdDok = GetObject(Pfad)
    Set wdAnw = wdDok.Parent
 
    'Anzeige des Word-Dokuments
    wdAnw.Visible = True
    wdAnw.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
    wdAnw.Activate
    wdDok.Activate
   
    'Suche nach den Textmarken - Wenn vorhanden werden die Daten eingegeben
    'Textmarke Firma gefunden?
    If wdDok.Bookmarks.Exists(textmarke1) Then
        Selection.GoTo What:=wdGoToBookmark, name:=textmarke1
        Selection.TypeText Text:=firma
    Else
MsgBox "Textmarke " & textmarke1 & " nicht gefunden!"
    End If
   
    'Textmarke faxnr gefunden?
    If wdDok.Bookmarks.Exists(textmarke2) Then
        Selection.GoTo What:=wdGoToBookmark, name:=textmarke2
        Selection.TypeText Text:=faxNr
    Else
MsgBox "Textmarke " & textmarke2 & " nicht gefunden!"
    End If
   
    'Textmarke partner gefunden?
    If wdDok.Bookmarks.Exists(textmarke3) Then
        Selection.GoTo What:=wdGoToBookmark, name:=textmarke3
        Selection.TypeText Text:=anrede & " " & vorname & " " & nachname
    Else
MsgBox "Textmarke " & textmarke3 & " nicht gefunden!"
    End If
   
    'Textmarke anrede gefunden?
    If wdDok.Bookmarks.Exists(textmarke4) Then
        Selection.GoTo What:=wdGoToBookmark, name:=textmarke4
        If anrede = "Herr" Then
            Selection.TypeText Text:="Sehr geehrter Herr " & nachname & ","
        ElseIf anrede = "Frau" Then
            Selection.TypeText Text:="Sehr geehrte Frau " & nachname & ","
        Else
            Selection.TypeText Text:="Sehr geehrte Damen und Herren,"
        End If
    Else
MsgBox "Textmarke " & textmarke4 & " nicht gefunden!"
    End If
       
    Set wdDok = Nothing
    Set wdAnw = Nothing
 
  Else
MsgBox " Die Datei ist nicht vorhanden oder wurde entfernt!"
    wdDok.Close
    wdAnw.Quit
  End If
End Sub


Nun zu dem Problem. Wenn ich es ausführe macht er alles einwand frei. Wenn ich dann aber das Word-Dokument wieder schließe und das Programm noch mal ausführe, erhalte ich die Fehlermeldung "Laufzeitfehler 462 - Der Remot-Server-Computer existiert nicht oder ist nicht verfügbar."
Wenn ich es nun noch einmal versuche geht es wieder! Also beim jeden zweiten Versuch kommt diese Fehlermeldung.

Kann mir jemand erklären worin das Problem liegt?

Grüße

Michael
bst
Programmierer


Verfasst am:
12. Dez 2006, 13:18
Rufname: Bernd
Wohnort: Ilsfeld

AW: Kann mir jemand den Fehler in meinem Code nennen??? - AW: Kann mir jemand den Fehler in meinem Code nennen???

Nach oben
       Version: Office 2003

Hallo Michael,

vermutlich an Deinen "Selection". Dort gehört überall ein "wdDok." oder ein "wdAnw." davor.
Code:
wdDok.GoTo What:=wdGoToBookmark, Name:=textmarke1

bzw.
Code:
wdAnw.Selection.GoTo What:=wdGoToBookmark, Name:=textmarke1

sowie:
Code:
wdAnw.Selection.TypeText Text:=firma

Außerdem solltest Du M.E. prüfen ob es eine ActiveExplorer gibt:
Code:
   If ActiveExplorer Is Nothing Then Exit Sub

sowie objItem als Object definieren und in der Schleife testen, ob das selektierte Object auch ein ContactItem ist.
Code:
   Dim objItem As Object
   ' ...

   For Each objItem In olselection
      If TypeOf objItem Is ContactItem Then
         ' ...
      End If
   Next objItem

Übrigens, nimm -1 anstatt wdGoToBookmark oder definiere Dir diese Konstante selber, dann kannst Du auf den Verweis auf Word verzichten.

HTH, Bernd
Suko4780
Gast


Verfasst am:
13. Dez 2006, 12:22
Rufname:


AW: Kann mir jemand den Fehler in meinem Code nennen??? - AW: Kann mir jemand den Fehler in meinem Code nennen???

Nach oben
       Version: Office 2003

Hallo Bernd!

Danke für die Hinweise. Jetzt funktioniert es. Richtig war die Anweisung:

Code:

wdAnw.Selection.GoTo What:=wdGoToBookmark, Name:=textmarke1


Damit funktioniert es nun. Jetzt versuche ich es auch noch zu verstehen Wink Aber da bin ich guter Hoffnung. Auch Deine vorgeschlagenen Prüfungen werde ich mal einbauen.

Vielen Dank für die Hilfe!

Grüße

Michael, jetzt wieder etwas schlauer ...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Fehler bei Mailversand über Access nach Installation von Ora 2 Checka123 2036 16. Jun 2010, 21:31
Gast Fehler bei Mailversand über Access nach Installation von Ora
Keine neuen Beiträge Outlook Mail: fehler beim E-mail versenden mit anhang! 1 Andre F. 2258 08. Dez 2009, 13:09
Andreas.Fischer fehler beim E-mail versenden mit anhang!
Keine neuen Beiträge Outlook Mail: Erstellter HTML Code in Mail einfügen 1 Maxe 9902 11. Nov 2009, 17:53
Andreas.Fischer Erstellter HTML Code in Mail einfügen
Keine neuen Beiträge Outlook Mail: Fehler:domain can not be resolved temporarily 0 ae 1026 03. Aug 2009, 09:11
ae Fehler:domain can not be resolved temporarily
Keine neuen Beiträge Outlook Mail: Fehler bei Versenden aus Outlook 2002: 354 Enter mail, end 2 kdemmeluth 4063 27. Apr 2009, 21:33
Gast Fehler bei Versenden aus Outlook 2002:  354 Enter mail, end
Keine neuen Beiträge Outlook Mail: Fehler bei der Auto-Vervollständigung 3 Doc Pansen 613 05. Dez 2008, 19:35
Doc Pansen Fehler bei der Auto-Vervollständigung
Keine neuen Beiträge Outlook Mail: Fehler beim Einrichten Fehler 0*800CCC35 1 Gast 826 23. Aug 2008, 10:34
Christi@n Fehler beim Einrichten Fehler 0*800CCC35
Keine neuen Beiträge Outlook Mail: E-Mail Empfang als Code 5 musto 928 08. Jul 2008, 12:09
Andreas.Fischer E-Mail Empfang als Code
Keine neuen Beiträge Outlook Mail: Fehler bei Signatur in Outlook 2003 0 tici 2343 08. Nov 2007, 12:43
tici Fehler bei Signatur in Outlook 2003
Keine neuen Beiträge Outlook Mail: Outlook 2000 Fehler in OST Datei 1 Lorchp 1829 31. Okt 2007, 13:17
Andreas.Fischer Outlook 2000 Fehler in OST Datei
Keine neuen Beiträge Outlook Mail: Nachrichten versenden - Fehler bei Übermittlung 3 JuliaH 13928 31. Okt 2006, 14:08
Christi@n Nachrichten versenden - Fehler bei Übermittlung
Keine neuen Beiträge Outlook Mail: Fehler beim mailen von Excel Tabellen 0 sam71do 1124 02. Jun 2006, 09:27
sam71do Fehler beim mailen von Excel Tabellen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project