---

fehler_vb_notes.jpg

Hallo an Alle,

ich habe folgendes Program aus dem Internet und möchte dies bei mir umsetzen.
Wir arbeiten mit Lotus Notes.
Wenn ich mein Lotus Notes geschlossen habe, kommt diese Fehlermeldung und wenn ich mein Lotus Notes offen habe, schreibt er alles in die Felder im Notes, aber tut es nicht senden.
Geht dieses Programm nur bei Outlook oder kann ich dies auch bei Lotus Notes anwenden?

Private Sub Command1_Click()
' 1. SessionID erzeugen
' 2. Benutzer anmelden

With MAPISession1
' für das Mailkonto Benutzername und Passwort
.UserName = "123"
.Password = "456"

.SignOn

' SessionID
MAPIMessages1.SessionID = .SessionID
End With

' Mail senden
With MAPIMessages1
' Die Neue Nachricht
.Compose

' Der Empfänger
.RecipAddress = "111.111@gmx.net"

' Was solls sein (betreff)
.MsgSubject = "Nur eine test-Info"

' Hier nun die Nachricht
.MsgNoteText = "Die ist die Nachricht"

' Namen auflösen
.ResolveName

' Und weg die Nachricht
.Send
End With
End Sub

Bedanke mich im Voraus

Schöne Grüße
Feyza : )

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Feyza

versuch es mal damit
Folgende Parameter musst Du anpassen
"SERVERNAME" = Der Name des Notes-Servers
"DATEI" = Der Name der Mail-Datei (wahrscheinlich "mail\Benutername.nsf")
empfänger = mail-Adresse des Empfängers

Weiters musst Du die "notes32.tlb" einbinden

Private Sub CommandButton2_Click()
  Dim ws As Object
  Dim session As Object
  Dim db As Object
  Dim doc As Object
  Dim empfänger(1) As String
   
  Set ws = CreateObject("Notes.NotesUIWorkspace")
  Call ws.OpenDatabase("SERVERNAME", "DATEI", "")
  Set session = CreateObject("Notes.NotesSession")
  Set db = session.CurrentDatabase
  Set doc = db.CreateDocument
   
  empfänger(0) = String(50, Chr(0))
  empfänger(0) = "EMPFÄNGER-MAIL-ADRESSE"
  doc.Subject = "Zeichnungsänderung: " + Z_Name
  doc.sendto = empfänger
  doc.Body = Chr(10) + "Testnachricht"
  doc.SAVEMESSAGEONSEND = True
  Call doc.Send(False, empfänger)
End Sub

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heinz,

danke Dir.
Habe es mit einer anderen Möglichkeit STMP realisiert.

Schöne Grüße
Feyza : )

------------------
   

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP