Forums Neueste Beiträge
 

Mailversand in Lotus über VBA

28/04/2008 - 16:39 von Frank.Klemens | Report spam
<br><font size=2 face="sans-serif">Hallo NG,</font>
<br>
<br><font size=2 face="sans-serif">ich möchte gerne ein Lotus-Notes-Mail
über Excel-VBA generieren, senden und ausdrucken. Die Übergabe an Lotus
und der Versand funktioniert sehr gut, ein entsprechendes Skript konnte
ich im Internet finden. Allerdings finde ich nicht, wie diese versendete
Mail automatisch ausgedruckt werden kann. </font>
<br>
<br><font size=2 face="sans-serif">Der Ablauf ist wie folgt:</font>
<br>
<br><font size=2 face="sans-serif">User gibt in Excel Daten ein.</font>
<br><font size=2 face="sans-serif">Durch CommandButton startet Sub SendNotesMail
mit den vorhandenen Argumenten</font>
<br><font size=2 face="sans-serif">Mail wird automatisch erstellt, versendet
und soll dann ausgedruckt werden.</font>
<br><font size=2 face="sans-serif">Der User erhàlt eine Meldung über die
Durchführung.</font>
<br>
<br><font size=2 face="sans-serif">Eine einfache Lösung wie MailDoc.print
funktioniert leider nicht (wàr ja auch zu schön gewesen)</font>
<br>
<br>
<br><font size=2 face="sans-serif">Hier der Programmteil:</font>
<br>
<br>
<br>
<br><font size=2 face="sans-serif">Public Sub SendNotesMail(wn As String,
preis As Long, bez As String) 'Set up the _</font>
<br><font size=2 face="sans-serif">objects required for Automation into
lotus notes</font>
<br>
<br><font size=2 face="sans-serif">Dim Maildb As Object 'The mail database</font>
<br><font size=2 face="sans-serif">Dim UserName As String 'The current
users notes name</font>
<br><font size=2 face="sans-serif">Dim MailDbName As String 'THe current
users notes mail database name</font>
<br><font size=2 face="sans-serif">Dim MailDoc As Object 'The mail document
itself</font>
<br><font size=2 face="sans-serif">Dim session As Variant 'The notes session</font>
<br>
<br><font size=2 face="sans-serif">Dim Betreff As String</font>
<br><font size=2 face="sans-serif">Dim Text1 As String</font>
<br><font size=2 face="sans-serif">Dim text2 As String</font>
<br><font size=2 face="sans-serif">Dim text3 As String</font>
<br><font size=2 face="sans-serif">Dim text4 As String</font>
<br><font size=2 face="sans-serif">Dim text5 As String</font>
<br><font size=2 face="sans-serif">Dim text6 As String</font>
<br><font size=2 face="sans-serif">Dim text7 As String</font>
<br>
<br><font size=2 face="sans-serif">UserForm1.Show 'Auswahl des Empfàngers,
Abbruch liefert empfaenger = &quot;Stop&quot;</font>
<br>
<br><font size=2 face="sans-serif">If empfaenger = &quot;Stop&quot; Then</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; MsgBox &quot;Neuanlage
wurde NICHT an MTBD-CRE mitgeteilt.&quot;</font>
<br><font size=2 face="sans-serif">&nbsp; &nbsp; Exit Sub</font>
<br><font size=2 face="sans-serif">End If</font>
<br>
<br><font size=2 face="sans-serif">Betreff = &quot;Neuanlage &quot; &amp;
wn</font>
<br><font size=2 face="sans-serif">Text1 = &quot;Sehr geehrte Damen und
Herren, &quot; &amp; vbCrLf &amp; vbCrLf</font>
<br><font size=2 face="sans-serif">text2 = &quot;bitte anlegen:&quot; &amp;
vbCrLf</font>
<br><font size=2 face="sans-serif">text3 = &quot; &nbsp; &nbsp; &nbsp;
&quot; &amp; wn &amp; vbCrLf</font>
<br><font size=2 face="sans-serif">text4 = &quot; &nbsp; &nbsp; &nbsp;
&quot; &amp; bez &amp; vbCrLf</font>
<br><font size=2 face="sans-serif">text5 = &quot; &nbsp; &nbsp; &nbsp;
Preis: &quot; &amp; Format(preis, &quot;##,##0.00&quot; &amp; &quot; EUR&quot;)
&amp; vbCrLf</font>
<br><font size=2 face="sans-serif">text6 = &quot;anlegen.&quot; &amp; vbCrLf
&amp; vbCrLf</font>
<br><font size=2 face="sans-serif">text7 = Text1 &amp; text2 &amp; text3
&amp; text4 &amp; text5 &amp; text6 &amp; vbCrLf &amp; &quot;Mit freundlichen
Grüßen&quot; </font>
<br>
<br><font size=2 face="sans-serif">'Start a session to notes</font>
<br><font size=2 face="sans-serif">Set session = CreateObject(&quot;Notes.NotesSession&quot;)</font>
<br><font size=2 face="sans-serif">'Get the sessions username and then
calculate the mail file name</font>
<br><font size=2 face="sans-serif">'You may or may not need this as for
MailDBname with some systems you</font>
<br><font size=2 face="sans-serif">'can pass an empty string</font>
<br>
<br><font size=2 face="sans-serif">MailDbName = Left$(UserName, 1) &amp;
Right$(UserName, (Len(UserName) - InStr(1, UserName, &quot; &quot;))) &amp;
_</font>
<br><font size=2 face="sans-serif">&nbsp;_</font>
<br><font size=2 face="sans-serif">&quot;.nsf&quot;</font>
<br><font size=2 face="sans-serif">'Open the mail database in notes</font>
<br><font size=2 face="sans-serif">Set Maildb = session.GetDatabase(&quot;&quot;,
MailDbName)</font>
<br>
<br><font size=2 face="sans-serif">If Maildb.IsOpen = True Then</font>
<br><font size=2 face="sans-serif">'Already open for mail</font>
<br><font size=2 face="sans-serif">Else</font>
<br><font size=2 face="sans-serif">Maildb.OPENMAIL</font>
<br><font size=2 face="sans-serif">End If</font>
<br>
<br><font size=2 face="sans-serif">'Set up the new mail document</font>
<br><font size=2 face="sans-serif">Set MailDoc = Maildb.CREATEDOCUMENT
'&lt; --Fehler</font>
<br><font size=2 face="sans-serif">MailDoc.Form = &quot;Memo&quot;</font>
<br><font size=2 face="sans-serif">MailDoc.sendto = empfaenger</font>
<br><font size=2 face="sans-serif">MailDoc.Subject = Betreff</font>
<br><font size=2 face="sans-serif">MailDoc.Body = text7</font>
<br><font size=2 face="sans-serif">MailDoc.SAVEMESSAGEONSEND = True</font>
<br><font size=2 face="sans-serif">'Send the document</font>
<br>
<br><font size=2 face="sans-serif">MailDoc.PostedDate = Now() 'Gets the
mail to appear in the sent items folder</font>
<br><font size=2 face="sans-serif">MailDoc.SEND 0, empfaenger</font>
<br>
<br><font size=2 face="sans-serif">MsgBox &quot;Die Mail wurde an &quot;
&amp; empfaenger &amp; &quot; versendet!&quot;, vbInformation, &quot;Mailversand&quot;</font>
<br>
<br><font size=2 face="sans-serif">Set Maildb = Nothing</font>
<br><font size=2 face="sans-serif">Set MailDoc = Nothing</font>
<br><font size=2 face="sans-serif">Set session = Nothing</font>
<br><font size=2 face="sans-serif">End Sub</font>
<br>
<br>
<br><font size=2 face="sans-serif">Kennt jemand eine Lösung? Muß ich ein
weiteres Object (z. B. NOTESUIDOCUMENT) öffnen? Wenn ja, wie finde ich
dann das eben erstellt Memo-Dokument? ???</font>
<br>
<br><font size=2 face="sans-serif">Vorab schon mal vielen Dank für Euer
Interesse.</font>
<br>
<br>
<br><font size=2 face="sans-serif">VG Frank</font>
 

Lesen sie die antworten

#1 Martin Hentrich
28/04/2008 - 16:12 | Warnen spam
On 28 Apr 2008 14:39:02 GMT, wrote:

X-Newsreader: Lotus Notes Release 6.5.2 June 01, 2004



Sorry, geht das auch ohne HTML?

Martin
Kathinka's Law: Eine Frage im Usenet stellen heißt nicht,
die Antwort zu bekommen, die man hören will.
CvN's Erweiterung: Eine Frage im Usenet stellen heißt nicht,
die Antworten zu verstehen, die man hören wird.

Ähnliche fragen