Office: (Office 2010) Excel VBA: Outlook öffnen, Mail senden und schließen

Hallo leibe Forengemeinde,

ich plage mich gerade mit einem Problem herum und zwar möchte ich Outlook öffnen(falls noch nicht offen), eine Mail senden und dann wieder schließen (nur wenn es noch nicht offen war). Dieser Prozess soll am besten vom Anwender gar nicht registriert werden.

Im Moment versuche ich es mit

Set oOL = CreateObject("Outlook.Application")

Jedoch öffnet er in diesem Fall Outlook nicht (Die outlook objektbibilothek ist als Verweis hinzugefügt).

Darüberhinaus poppt bei
oOL.Quit
Immer die Meldung auf, ob man vor dem Senden beenden möchte oder gar nicht.

Outlook mit Shell zu öffnen würde ich lieber nicht, das poppt bei mir trotz vbMinimizedNoFocus bei mir im Fokus auf. Außerdem kann der Dateipfad an anderen Rechnern sich unterscheiden.

Ich wäre über Hilfe sehr erfreut!


Zur Info: E-Mail schreiben und senden ist kein Problem, ich brauche nur Hilfe beim Outlook schließen und öffnen.

Auch habe ich zu schließen schonmal Anwendung.Terminate ausprobiert, dass generiert jedoch beim nächsten Outlook Start eine unerwünschte Meldung.

 

Hi,

hiermit wird eine Mail nit Outlook versandt, ohne dass der Excel-Benutzer etwas davon mitbekommt:

Code:

Sub EMailVersendenOutlook()
    Dim obNachricht As Object
    Dim obMail As Object
    Set obMail = CreateObject("Outlook.Application")
    Set obNachricht = obMail.CreateItem(0)
    With obNachricht
        .To = "DeineMailAdresse@web.de"
        .Subject = "Erinnerung"
        .Body = "Liebe Kati," & vbLf & vbLf & "dein Termin ist am 01.12.2009 fällig." & vbLf _
            & "Denke bitte unbedingt daran."
        .ReadReceiptRequested = False
        .send
    End With
    Set obNachricht = Nothing
    Set obMail = Nothing
End Sub

Bis später,
Karin

 

Hey,
im Prinzip verwende ich genau den gleichen Code, allerdings scheint bei mir die Zeile

Set obMail = CreateObject("Outlook.Application")

Nicht zu funktionieren, zumindestens, wenn Outlook nicht geöffnet ist.

Es kommt dann der "Laufzeitfehler '287' Anwedungs- oder objekdefinierter Fehler" bei der Zeile .Send, obwohl obMail den Wert "Outlook" (Object/Application) und obNachricht den Wert (Object/MailItem) haben
Bei geöffnetem Outlook funktioniert der Code einwandfrei.

Mein Ziel ist es, beim Öffnen einer Datei eine E-Mail zu versenden. Dies soll natürlich auch funktionieren, wenn Outlook nicht geöffnet ist.
Deswegen habe ich Shell verwendet, allerdings wird, wenn Outlook bereits geöffnet ist eine weitere Instanz gestartet.
Durch ObMail.Close werden dann alle Instanzen geschlossen und es wird vorher nachgefragt, ob erst gesendet oder ohne senden beendet werden soll.Der Benutzer soll aber keine Möglichkeit haben, die Datei zu öffnen ohne das eine E-Mail Benachrichtigung rausgeht, da es sich um eine Excel Tabelle mit Passwörtern handelt.

Vielen Dank schonmal für die Hilfe!

Edit: Ich habe das hier verwendet:
http://www.rondebruin.nl/win/s1/outlook/openclose.htm

Outlook zu schließen, wenn es vorher nicht geöffnet war geht damit zwar nicht, erfüllt aber immerhin schonmal die geforderte Funktion

 

Hi,

hast du unter Verweise den Verweis "Microsoft Outlook 12.0 Object Library" (bzw. die Nummer deiner Excelversion) aktiviert?

Bis später,
Karin

 

Ja habe die aktuelle Importiert. Mit der von mir geposteten Variante funktioniert es einwandfrei.

 

Dann bist du anscheinend eine der wenigen Ausnahmen, bei denen der Code nicht funktioniert.

Bis später,
Karin

 

Kann es sein das es mit meinen Benutzer rechten zusammenhängt? Ich bin an einem PC an der Arbeit und die sind durch die IT-Sicherheit entsprechend eingeschränkt.

Edit: Habe noch ein weiteres Problem, wenn jetzt ein anderer Benutzer diese (sich auf dem Netzlaufwerk befindliche) Datei öffnet, fragt Excel, ob das Senden der E-Mail erwartet wird. Man kann nun auch den Zugriff verweigern oder ihn erteilen.

Erteilen
Erteilt man den Zugang landet die Mail erstmal in deren Postausgang und kann gelöscht werden, damit würde ich keine Statusmeldung erhalten, dass diese Person auf die Datei zugegriffen hat.

Verweigern
Es kommt eine Fehlermeldung, klickt man dann beenden, wird keine E-Mail geschickt, man kann aber dann auf die Datei ohne Probleme zugreifen.

Sieht so aus, als hinge das mit dem inaktiven Virenprogramm auf dem anderen Rechner zusammen.

Allgemein als Lösung wäre dann wohl sowas wie

On error GoTo CloseWorkbook