Thema Datum  Von Nutzer Rating
Antwort
Rot - Laufzeitfehler '-2147467259 (80004005) Outlook
 10.04.2014 11:36:31 ICh_Verzweifle
Solved
11.04.2014 10:29:44 ICh_Verzweifle
NotSolved

Ansicht des Beitrags:
Von:
ICh_Verzweifle		 Datum:
10.04.2014 11:36:31		 Views:
1709		 Rating:
     
Antwort:
 Nein
Thema:
- Laufzeitfehler '-2147467259 (80004005) Outlook

Hallo freunde,

ich habe meine Datei so aufgebaut, dass E-Mails automatisch verschickt werden.

Dies hat auch ohne weiteres funktioniert.

Jetzt sollten 300 E-Mails rausgehen und ich kriege folgende Fehlermeldung:

Laufzeitfehler '-2147467259 (80004005) Outlook

Mein Macro sieht wie folgt aus:

 

Code:
Private Sub CommandButton2_Click()
 
  Dim olApp As Object
  Dim olMail As Object
  Dim strTo As String
  Dim letzteZeile As Integer, i As Integer
  Dim strBody As String
  Dim Kopf, antwort As String
  Dim Stil As Integer
  Dim Wert As String
 
  Stil = vbYesNo + vbQuestion + vbDefaultButton2
  Kopf = " *** Sicherheitsfrage *** "
  antwort = MsgBox(" #### Wollen Sie wirklich " & vbCrLf & vbCrLf & _
    [COUNTA(G2:G1000)] & " " & "Emails verschicken? ####" & vbCrLf & vbCrLf & _
    "Klicken Sie auf ja, wenn die E-Mails verschickt werden sollen! " & vbCrLf & vbCrLf & _
    "Klicken Sie auf nein, um den Vorgang abzubrechen! ", Stil, Kopf)
  If antwort = vbNo Then GoTo Ende
  If antwort = vbYes Then 'hier hin, was gemacht werden soll.
 
  letzteZeile = Cells(Rows.Count, 7).End(xlUp).Row
  'Outlook
  Set olApp = GetObject(, "Outlook.Application")
  'letzte Zeile der Spalte
 
  For i = 2 To letzteZeile
    Set olMail = olApp.createitem(0)
    strTo = Cells(i, 7).Value       'Empfänger
    With olMail
      .htmlbody = "<font face=""arial""> Sehr geehrten Damen und Herren,<p>" & _
        "zwecks Erstellung unserer Jahresverbrauchsabrechnung bitten wir Sie uns für u. a. Zählpunkt den erforderlichen Brennwert sowie die Zustandszahl zu übermitteln:" & "<p>" & _
        "<li>Zählpunktbezeichnung" & " " & Cells(i, 4).Value & "<br></li>" & _
        "<li>Zeitraum" & " " & Cells(i, 8).Value & "-" & Cells(i, 9).Value & "<br></li>" & _
        "<li>Zählerstand" & " " & Cells(i, 10).Value & "</li><p>" & _
        "Unsere Anfrage der fehlenden Werte erfolgte bereits per ORDERS - Ihre Antwort hierzu steht leider noch aus. Sollte eine Antwort Ihrerseits per MSCONS nicht möglich sein, bitten wir um eine bilaterale Rückmeldung." & "<p>" & _
        "Gerne erreichen Sie uns auch telefonisch unter der Telefon-Nr.: 02251/ 774 76-0. " & "<p>" & _
        "Falls Sie hierfür nicht der richtige Ansprechpartner sind, bitten wir Sie unsere E-Mail weiterzuleiten oder uns den entsprechenden Ansprechpartner zu nennen." & "<p>" & _
        "Wir danken Ihnen vorab für Ihre Mühe und stehen für Rückfragen gerne zur Verfügung." & vbCrLf & vbCrLf & _
" " & "<p>" & _
"Freundliche Grüße" & "<p>" & _
        "Ihr Kundenservice" & "<p>" & _
        "LogoEnergie GmbH" & "</font>"
      .SentOnBehalfOfName = "info@logoenergie.de"
      .To = strTo
      .Subject = "**EILT** - Dringend benötigte Werte zur Erstellung der Jahresverbrauchsabrechnung"
      '.Body = olMail.htmlbody
      .Send
    End With
    Set olMail = Nothing
  Next
  'Variablen zurücksetzen
  Set olApp = Nothing 'CreateObject("Outlook.Application")
  Exit Sub
Ende:
End If
End Sub


Nach der Fehlermeldung makiert er mir ".Send"

Was mache ich falsch Sad

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot - Laufzeitfehler '-2147467259 (80004005) Outlook
 10.04.2014 11:36:31 ICh_Verzweifle
Solved
11.04.2014 10:29:44 ICh_Verzweifle
NotSolved