Hey, wie bekomme ich via Excel VBA eine Mail bei Lotus Notes geschrieben, sodass ich sie vorher noch bearbeiten kann?

Sobald ich die Mail ohne Bearbeitung verschicke, ist die Mail inklusive des Inhaltes. Sobald ich sie bearbeiten will vorher bzw. noch einmal manuell auf "senden" drücken will (Vorsichtsmaßnahme), ist der komplette Inhalt, bis auf die Betreffzeile, verschwunden.

Beiliegend ist mein Codebeispiel

Sub SendNotesMail2()

Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim stSignature As String



With Application
.ScreenUpdating = False
.DisplayAlerts = False


AWS = ActiveWorkbook.FullName
Set Worksheet = Application.ActiveWorkbook.Worksheets.Item(1)
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.createdocument
MailDoc.Form = "Memo"
Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
stSignature = Maildb.GetProfileDocument("CalendarProfile").GetItemValue("Signature")(0)
Recipient = "f"
MailDoc.display = ""
MailDoc.copyto = "" 
MailDoc.subject = "price update"
MailDoc.SAVEMESSAGEONSEND = saveit
Set ritem = MailDoc.CreateRichTextItem("Body")
For i = 2 To 37
With ritem
        .AppendText ("")
        .AppendText (Cells(i, 2).Value & vbTab & Cells(i, 3).Value & vbTab & Cells(i, 4).Value & vbTab & Cells(i, 5).Value & vbTab)
        .addnewline (1)
End With
Next
For i = 2 To 2
With ritem
        .AppendText ("" & vbCrLf & vbCrLf & stSignature)
End With
Next


Call Workspace.editdocument(True, MailDoc).GOTOFIELD("subject")


MailDoc.PostedDate = Now()

Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachMe = Nothing
Set session = Nothing
.ScreenUpdating = True
.DisplayAlerts = True
End With
Range("a1").Select
End Sub             
Computer, Excel, Mail, Lotus Notes
1 Antwort
Wie kann ich verhindern, dass bei meinem Batch spiel steht echo ist ausgeschaltet off?

Script:

@echo off title Tic Tac Toe color 0F

:gebenick1 color0f echo. cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 1.Spieler: echo. set /p nick1="" goto bubu1 :lol1 color0f cls echo. echo. echo. echo. echo #################### echo Willkommen %nick1% echo #################### ping /n 2 localhost >NUL goto gebenick2

:gebenick2 color0f cls echo. echo. echo ###### ## ### ###### ## ### ###### #### ###### echo ## ## ## ## #### ## ## ## ## #### echo ## ## ## ## ## ## ## ## ## ## ## echo ## ## ### ## ## ## ### ## #### ###### echo. echo
echo. echo. echo Name des 2.Spieler: echo. set /p nick2="" goto bubu2 :lol2 color0f cls echo. echo. echo. echo. echo. echo. echo #################### echo Willkommen %nick2% echo #################### ping /n 2 localhost >NUL goto main

:main color0f

set z1=1 set z2=2 set z3=3 set z4=4 set z5=5 set z6=6 set z7=7 set z8=8 set z9=9

:Spieler1 cls

color 0f

echo. echo
echo
echo. echo %nick1% hat die 0 echo. echo. echo %z1%___%z2%___%z3% echo.
echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% echo. echo. echo. set /p Zahl=%nick1% setzte eine Zahl: if %Zahl%==1 goto 1 if %Zahl%==2 goto 2 if %Zahl%==3 goto 3 if %Zahl%==4 goto 4 if %Zahl%==5 goto 5 if %Zahl%==6 goto 6 if %Zahl%==7 goto 7 if %Zahl%==8 goto 8 if %zahl%==9 goto 9

:1 if %z1%==x goto B if %z1%==0 goto A set z1=0 goto check

:2 if %z2%==x goto B if %z2%==0 goto A set z2=0 goto check

:3 if %z3%==x goto B if %z3%==0 goto A set z3=0 goto check

:4 if %z4%==x goto B if %z4%==0 goto A set z4=0 goto check

:5 if %z5%==x goto B if %z4%==0 goto A set z5=0 goto check

:6 if %z6%==x goto B if %z6%==0 goto A set z6=0 goto check

:7 if %z7%==x goto B if %z7%==0 goto A set z7=0 goto check

:8 if %z8%==x goto B if %z8%==0 goto A set z8=0 goto check

:9 if %z9%==x goto B if %z9%==0 goto A set z9=0 goto check

:Spieler2 cls echo. echo Hier wird gespielt: echo ####################### echo. echo %nick2% hat x echo. echo. echo %z1%___%z2%___%z3% echo. echo %z4%___%z5%___%z6% echo.
echo %z7%___%z8%___%z9% e

Programmieren, Batch
5 Antworten

Was möchtest Du wissen?