Office: (Office 2010) Automatisch Email verschicken (If then?)

Edit: Hat sich erledigt, Fehler gefunden
Jetzt wird mir noch eine andere Fehlermeldung angezeigt:

bei:

Code:

Was muss ich da jetzt machen?

Wieso steht da 'Objekt' erforderlich, wenn es mit dem Bericht bemiB eins geben sollte...

 

Weiß ich auch nicht.
Ist wieder ein Tippfehler:
Code:

Das "o" muss weg, es heißt DoCmd.
maike

 

Hallo maikek

ja, den Fehler hab ich nach bisschen genauerem Hinsehen auch eben gefunden*biggrin.gif*

also das Email-Versenden funktioniert jetzt, auch wenn bei Outlook immer für jede Email die rausgeht, ein Fensterchen aufgeht, wo ich noch auf einen Knopf drücken muss, um Access die Erlaubnis zu erteilen auf Outlook zuzugreifen.*biggrin.gif*

Es gibt für die Betriebsmittel ein Feld, nämlich "Wartungsblatt" (Format meist PDF), welches ich natürlich auch per Email den Meistern mitsenden möchte... klappt auch, aber die Datei ist quasi nur "aufgemalt" und lässt sich nicht öffnen. Wie könnte ich dieses Problem lösen? ^^

Aber das Email Versenden klappt auf jeden Fall schon mal, davon bin ich ja schon begeistert*mrcool *grins

 

Da google mal ein bisschen, oder vielleicht wirst du hier im Forum fündig. Ich habe Outlook nicht im Einsatz und kenne das zum Glück nur vom Hörensagen *mrcool . Das ist irgendein Sicherheits-Feature.

DoCmd.SendObject kann imho auch in den höheren Access-Versionen keine Dateianhänge aus gespeicherten Files versenden.
Da müsste dann doch Outlook-Automation statt DoCmd.SendObject eingesetzt werden. Guck mal hier im Forum nach Email, Outlook etc., da gibt es einige Beispiele. Daraus erstellst du dann am besten eine eigene Sub und rufst dann diese an der Stelle auf, wo jetzt SendObject steht.

maike

 

Also wenn ich an der Stelle SendObject eine sogenannte Outlook.Automation benutze, kann ich auch Dateianhänge versenden?

http://www.ms-office-forum.net/forum...=email+outlook

In diesem Thread habe ich meine ich eine Outlook Automation gefunden. Wie erstelle ich denn daraus einen Sub und rufe diese dann an der Stelle für SendObject auf?

Dann müsste ich den Code an den Stellen .To .Subject und .Body anpassen ne


Edit: habe diesen Thread gefunden zwecks Deaktivierung der Warnmelung: http://www.ms-office-forum.net/forum...d.php?t=109804

 

Ja, das Stichwort ist "Attachment", das wäre dann nach .Body etc. einzufügen.

Sub erstellen? Oben
Code:

drüberschreiben und unten End Sub drunter *wink.gif* .
Über die Angaben in der Klammer Übergaben kommen die Informationen für die Mail.
In der bisherigen Sub dann statt SendObject den Aufruf:
Code:

Wobei ich jetzt grad überlege, wie denn der Report da jetzt unterzubringen ist ... hmm, auch als Anhang? Braucht es den jetzt überhaupt, kannst du die Infos, die da drin sind evtl. auch in den Mailtext verpacken?

maike