Supportnet / Forum / Datenbanken

Hallo! Habe Access 97 und Lotus Notes 4.6.1 Habe mir gedacht, kann ja nicht so schwer sein über DoCmd.SendObject einen Bericht als RTF aus Access zu verschicken. Syntax geht ja noch, aber sobald der Befehl ausgeführt wird geht's mit Konfigurieren los. (Dienste, etc.) Habe soweit alles mögliche versucht, von dem ich meine nicht allzuviel Unsinn anzustellen, aber das Einzige was ich erreiche, ist, daß ich automatisch von Systemadministrator folgende Nachricht erhalte: Betreff: Unzustellbar Angebot... Nachricht: Zur Übermittlung von Nachrichten an diesen Empfänger steht kein Dienst zur Verfügung Eigentlich schade! Vielleicht hat ja jemand von Euch noch eine Idee, was ich machen kann. Wäre Euch sehr dankbar Gruß Johnny

was heisst verschicken? Per email? wenn ja, dann schau mal in die Beispiele unter freeaccess.de, da ist eine Beispiel-mdb dabei, die zeigt wie's geht.

Gruß
Jürgen

Hi Jürgen,

hab ich mir angeschaut. Trifft allerdings nicht ganz des Pudels Kern.

Kurz gesagt, ich habe einen Angebotsgenerator in dem ich aus dem Formular heraus über 2 Button 2 Berichte aufrufe. 1x Fax-Angebot, 1x Briefangebot.

Nun möchte ich allerdings auch die Möglichkeit haben über einen 3. Button das Angebot direkt per Mail zu versenden. In unserer firma haben wir Lotus Notes 4.6.1 als Standard.

Der Befehl DoCmd.SendObject bietet sich ja eigentlich dafür an. Aus dem Bericht wird ein RTF-File erzeugt, der an ein Mail angehangen wird.

Und das Mail wird auch über Lotus Notes verschickt. In der Liste Gesendete Dokumente ist es genauso, wie ich es gerne haben möchte. Mit RTF-File als Anhang, sieht alles ganz gut aus.

Nach 1 Minute bekomme ich aber die Meldung:
Nachricht: Zur Übermittlung von Nachrichten an diesen Empfänger steht kein Dienst zur Verfügung

Ich glaube nicht, daß das Problem im Aufruf zu suchen ist, sondern eher in der Konfiguration, die ich vornehmen muß. Vielleicht kann auch Access97 nicht mit Notes 4.6.1 ?!?

Wenn jemand schonmal das gleiche Problem hatte, wäre ich ihm sehr verbunden, wenn er mir mitteilt, wie ich es lösen kann.

Gruß

Johnny

Hi Johnny,

vielleicht hilft der code. Hiermit versende ich per E-Mail das Ergebnis einer Query als Excel File. Hat bei uns gefunzt mit A97 und Lotus Notes 4.6.?

Private Sub AllArchivLiefEMail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
        
    gstrDocQueryName = "qryPROJEKTLISTEMitArchiv"
    
    gstrToAdress = ""
    gstrCCAdress = ""
    gstrMailSubject = "All Deliveries (" & Date & ") for DEFAX"
    gstrStandardText = ""
        
    DoCmd.SendObject acSendQuery, gstrDocQueryName, acFormatXLS, gstrToAdress, _
        gstrCCAdress, , gstrMailSubject, gstrStandardText, True
 
End Sub

Gruesse Armin

Hi Armin,

thanks für den Tip, allerdings liegt mein Problem woanders, wie ich inzwischen herausgefunden habe.

Mit SendObject öffnet sich MS-Exchange und alles sieht so aus, wie es soll: Mailadresse, CCAdresse, Betreff und Anhang -> Alles O.K.

Wenn ich's dann sende, steht's in meiner Gesendetliste drin, allerdings bekomme ich umgehend eine Rückmeldung, daß für diesen Empfänger kein Dienst zur Verfügung steht.

Setze ich allerdings anstatt der email-Adresse nur den Vor- und Zunamen als Empfänger ein, so wird das Mail korrekt versendet. Der Trick liegt darin, daß in diesem Moment mein Notes-Adressbuch durchsucht wird und der Name gefunden wird.

Könnte ich ja mit Leben, wenn ich alle Mails nur an meine Kollegen und Freunde schicken würde. Aber die Mails, die ich verschicken möchte gehen an unsere Kunden, die habe ich allerdings nicht alle (ca. 20.000!) in meinem Adreßbuch gespeichert.

Kennst Du zufällig hierfür eine Lösung?

Johnny

... ich werd's checken, kann allerdings nächste woche werden. armin

• mehrseitigen Bericht mit Access versenden
• Bericht in pdf ausgeben (VBA)