| |
VB.NET - FortgeschritteneMail via Notes 9 - Problem mit Speicherabfrage | | | Autor: HaSte | Datum: 04.05.17 08:30 |
| Hallo ich habe ein Problem mit dem Mailversand via IBM Notes 9. Vieleicht gehört diese Anfrage auch in ein Notes-Forum, aber evtl. ist der Fehler auch im Code. Trotz Googeln fand ich keine Lösung. Wir haben mehre Notes-Maildatenbanken. Unter meiner eigenen DB funktioniert alles prima, aber auf einem anderen Rechner mit einem anderen User oder auf meinen Rechner aber eine andere Mail-DB kommt nach dem Mailversand die Abfrage ob die Mail gespeichert werden soll obwohl im Code geregelt ist das die Mail gespeichert werden soll.
Imports System.Net.Mail
Public Sub sendMail(sEmpfaenger As String, sBetreff As String, _
sText As String, sAnhang As String)
Dim session As Object
Dim db As Object
Dim LN_Doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim Workspace As Object
Dim ui_Doc As Object
session = CreateObject("Notes.NotesSession")
session.ConvertMIME = False
db = session.CurrentDatabase
If db.IsOpen = False Then db.OPENMAIL()
LN_Doc = db.CreateDocument
With LN_Doc
.form = "Memo"
.SendTo=sEmpfaenger
.Subject=sBetreff
.SaveMessageOnSend=True '<<< hier wird das Speichern geregelt
.PostedDate=Now()
If sAnhang <> "" Then
AttachME=LN_Doc.CreateRichTextItem("Attachment")
EmbedObj=AttachME.EmbedObject(1454, "", sAnhang, "")
End If
End With
Workspace = CreateObject("Notes.NotesUIWorkspace")
ui_Doc = Workspace.EDITDOCUMENT(True, LN_Doc)
With ui_Doc
.GOTOFIELD("Body")
.inserttext(sText)
.Send()
.Close()
End With
AttachME = Nothing
EmbedObj = Nothing
ui_Doc = Nothing
Workspace = Nothing
LN_Doc = Nothing
db = Nothing
session = Nothing
End Sub Mein Problem ist ob im Code ein Fehler steckt oder in den Datenbankeinstellungen in Notes.
Besten Dank und beste Grüße im voraus
Steffen | |
Re: Mail via Notes 9 - Problem mit Speicherabfrage | | | Autor: sv00010 | Datum: 05.05.17 17:45 |
| HaSte schrieb:
db = session.CurrentDatabase Ich habe zwar keine Ahnung, aber wenn ich raten müsste, dann würde ich dieses hier vermuten.
Übersetzung Current: aktuell, augenblicklich, gegenwärtig, derzeitig, momentan | |
Re: Mail via Notes 9 - Problem gelöst | | | Autor: HaSte | Datum: 08.05.17 12:13 |
| Problem gelöst durch weglassen des UserInterfaces. Damit kommt keine Speichernachfrage und die Mail geht raus. Mir war neu das man das Dokument direkt versenden kann.
Hier mein funktionstüchtiger Code:
Public Sub sendMail(sEmpfaenger As String, sBetreff As String, sText As _
String, sAnhang As String)
Dim session As Object
Dim db As Object
Dim LN_Doc As Object
Dim EmbedObj As Object
Dim AttachME As Object
Dim ui_Doc As Object
session = CreateObject("Notes.NotesSession")
session.ConvertMIME = False
db = session.CurrentDatabase
If db.IsOpen = False Then db.OPENMAIL()
LN_Doc = db.CreateDocument
With LN_Doc
.form = "Memo"
.SendTo = sEmpfaenger
.Body = sText
.Subject = sBetreff
.SaveMessageOnSend = False
.PostedDate = Now()
If sAnhang <> "" Then
AttachME = LN_Doc.CreateRichTextItem("Attachment")
EmbedObj = AttachME.EmbedObject(1454, "", sAnhang, "")
End If
End With
LN_Doc.Send(False)
EmbedObj = Nothing
AttachME = Nothing
ui_Doc = Nothing
LN_Doc = Nothing
db = Nothing
session = Nothing
End Sub | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevCommand 4.0
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats TOP Entwickler-Paket
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR...
Jetzt nur 599,00 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|