Mail per VBA in Entwurf des Arbeitsbereichs einstellen

1. offizieller Beitrag

    Hallo zusammen,


    ich melde mich mal wieder mit einem Mailproblem aus VBA.
    Diesmal hat man den Wunsch an mich herangetragen einen
    Text, einen Anhang bestehend aus einer Excel Arbeitsmappe
    und eine Mailadresse in den Entwurf im Arbeitsbereich einzu-
    stellen. Das ganze soll dazu dienen, das der Bediener des
    Programms noch einmal die Möglichkeit hat, die Mail vorm
    versenden zu überprüfen. Ist so etwas überhaupt möglich, namlich diesen Entwurfsbereich mit VBA auzusprechen oder
    muss ich das ganze an eine entsprechend eingerichtete Datenbank
    mailen.



    Vielen Dank im voraus


    Happyday

    Danke für die schnelle Beantwortung.Habe leider noch nie
    etwas mit OLE Automation gemacht. Wie das geht wäre mir
    schon einmal nützlich gewesen bein Versenden einer PDF-Datei.
    Wäre es möglich mir als Beispiel ein paar Zeilen Programmcode
    zu senden. Dann komme ich vielleicht alleine klar. Oder einen
    Tipp, wie ich mich schlau machen kann über OLE Automation.


    Gruß


    Happyday

    Also die wichtigste Methode nennt sich CreateObject. Die Hilfe dazu verrät dir mal das wichtigste.
    Weiterhing brauchst du dann noch die Notes Designer Hilfe um die Klassen und deren Parameter nachzuschauen.


    Ansonsten ist es nichts anderes wie dann Methoden des OLE Objektes das du mit CreateObject erzeugst aufzurufen


    Einige Beispiele findest du z.B. hier oder hier


    Alles gefunden wenn man bei Google mal nur OLE Automation Lotus Notes eingibt

    • Offizieller Beitrag

    oder in der Designer-Hilfe unter CreateObject oder eine FT-Suche nach "OLE" und "Automation". Da ist dann auch ein Beispiel mit dabei.


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

    Hallo,


    ich melde mich wieder zu dem Thema mit folgendem
    Stand:
    Mein zum Versand zusammengestelltes Dokument sieht
    wie folgt aus:


    With Document
    .Form = "Memo"
    .SendTo = arr
    .Subject = "Tabelle vom tt/mm/jj"
    Set RichTextFile = .CREATERICHTEXTITEM(Document, "Body")
    'Import Text
    Call RichTextFile.AppendText(sBody)
    Set Attachment = RichTextFile.EmbedObject(1454, "", Senddatei, "Anhang")
    End With


    'Send mail
    With Document
    .SaveMessageOnSend = True
    .PostedDate = Now
    Document.send False, arr
    End With



    Das versenden funktioniert.
    Jetzt will ich das Dokument aber nicht versenden, sondern nur als
    Entwurf speichern.
    Die Zeile:Document.send False, arr
    muss also ersetzt werden.Kann mir jemand einen Tipp
    geben wie dieser Befehl aussehen könnte.
    Irgendwie mit Draft.


    ich hoffe sehr, dass mir jemand behilflich sein kann.
    Vielen Dank im Voraus


    happyday

    ich habe mir die Notes DesignerHilfe besorgt, habe aber keinen NotesDesigner, weil ich mich bisher nur mit Excel VBA beschäftigt habe.Ein Kollege hat mir aus dem Designer zu dem Problem
    diesen Auszug gedruckt und meint ich müsse
    FIELD ActionInProgress ansprechen ???


    Aktion: Senden
    Formel: MEMO_SEND := "1024";
    FIELD ActionInProgress := MEMO_SEND
    If(@Command([FileSave]);
    @Command([FileCloseWindow]); @Return(""));


    Aktion: Senden und ablegen
    Formel: MEMO_SEND_FILE := 2097152;
    FIELD ActionInProgress := MEMO_SEND_FILE;
    @If(@Command([FileSave]); @Command([FileCloseWindow]); @Return(""));


    Aktion: Speichern
    Formel: MEMO_STATIONERYSAVE := "16";
    FIELD ActionInProgress := MEMO_STATIONERYSAVE;
    @If(@Command([FileSave]); @Command([FileCloseWindow]); @Return(""));


    Aktion: Als Entwurf speichern
    Formel: MEMO_DRAFT := "4096";
    MEMO_STATIONERYSAVE := "16";
    FIELD ActionInProgress := ActionInProgress;
    @If(Form = "Personal Stationery";
    @SetField("ActionInProgress"; MEMO_STATIONERYSAVE);
    @Do(@SetField("ActionInProgress"; MEMO_DRAFT); @SetField("PostedDate"; @DeleteField)));
    @If(@Command([FileSave]); @Command([FileCloseWindow]); @Return(""));

    Was er dir da gesagt ist ist Quatsch.


    Denn das würde deine Mail als Vorlage und nicht als Entwurf (Draft) speichern.


    Einen Draft erzeugst du einfach indem du eine Mail erzeugst und sie speicherst. Sonst nichts.


    Und deine Fehlermeldung deutet einfach darauf hin, daß du der Save Methode einen falschen Wert übergibst.


    Nur ohne zu wissen wie dein Save aussieht kann dir hier keiner helfen.


    Und der Hinweis auf den Blick in die Designerhilfe dürfte dir sicher auch verraten welcher Paramater das ist

    ....ich habe die Parameter für save in einem LotusNotes
    Kompendium gefunden


    document.save True,False


    jetzt steht die Mail leider im Bereich : Gesendet und nicht im Entwurf. Lästig ist dann für den Bediener die Adresse in die Weiterleitungsmail zu kopieren, zumal täglich -zig dieser Mails anfallen.Im Bereich Entwurf könnte er nach Überprüfung sofort senden.



    habe leider keine Idee und finde zu dem Entwurfsbereich keine
    Anweisungen.


    Hoffe weiterhin auf Hilfe


    schonmal vielen Dank

    Das liegt einfach an der Zeile


    Code
    .PostedDate = Now


    Diese muss raus.


    Das PostedDate wird beim Aufruf von Send automatisch gesetzt und sollte nie so gesetzt werden.


    Die Bedingung für Drafts ist einfach keine PostedDate und kein DeliveredDate.


    Woher hast du diese Zeile überhaupt ?

    danke für den Hoffnungsschimmer.Kann es leider erst am Donnerstag testen und kaum erwarten, dass es endlich funktioniert.


    die Zeile:.PostedDate = Now habe ich aus einer Mailroutine
    einer Computerzeitschrift und einfach mitübernommen ohne
    eigentlich zu verstehn.Hat bis jetzt nie gestört.


    es ist mühsam sich so durchzuhangeln, zumal die Wünsche bezüglich der Mailroutinen immer variantenreicher werden und
    eigentlich garnicht mein Arbeitsbereich sind.


    herzlichen Dank für die Hilfe

    ich habe die Designerhilfe im Büro und werde es probieren.
    Ehrlich gesagt stehe ich mit dieser Hilfe noch ziemlich auf Kriegsfuß, da ich viel zu wenig vom NotesDesigner verstehe.


    ich melde mich am Donnerstag, sobald ich ein Ergebnis habe

    Da LotusScript und VBA kompatibel zueinander sind, wirst du aber mit den Script Sachen ja wohl problemlos arbeiten können und mit denen nicht auf Kriegsfuss stehen. Und den Rest kannst du ja ignorieren