Domino 9 und frühere Versionen > ND8: Entwicklung

HTML EMail

(1/3) > >>

Janosch:
Hallo liebe Notes Experten,

ich bin gerade dabei für meine Software Notes mit einzubinden.

Ich Programmiere mit vb6 und arbeite zur Zeit an einer Funktion die mir eine Mail generiert. Was auch kein Problem ist. Im Internet findet man ja auch massig Beispiele.
Jedoch habe ich ein Problem:

Ich möchte natürlich auch HTML EMails erstellen, und nicht nur Plain Text.
Leider habe ich keine Ahnung wo das im Objektmodell steckt.
Bin nach manueller Suche nicht fündig geworden.

Leider kann ich mein Problem auch nicht mit Objektmodellen von andren Mail Programmen assozieren.

Bei z.B. Tobit David zehn ist es relativ einfach. Es gibt ein DvApi32.MailItem Objekt mit der Methode .BodyText darauf folgen .PlainText oder HTMLText.
Auch ist es relativ einfach an eine kostenfreie Dokumentation des Objektmodels zu kommen. Was bei IBM/Notes leider nicht der Fall ist.

Wäre super wenn ihr Experten mir Rat geben könntet  :)

Gruß Janosch

m3:
Lotus Domino Designer documentation vor allem die COM-Geschichten. In der "normalen" Designer-Hilfe findest Du die Objektstruktur.

Du willst Dir vor allem die NotesMIMEEntity class ansehen.

Axel:
Hier gibt's eine gute Doku zur COM-Programmierung:

COM Together - with Domino


Axel

Janosch:
Vielen Dank für die Ratschläge   ;)

Ich werde über meine Erfolge/Misserfolge ::) berichten

Gruß Janosch

Janosch:
Leider bin ich noch gar nicht bis zum HTML EMail Versand gekommen.


Durch die Dokus von euch beiden habe ich angefangen nicht mehr alles 'as Object' zu deklarieren.

Statt z.B.                                               nicht mehr

Dim Session As NotesSession                Dim Session As Object
Dim MailDoc As NotesDocument               Dim MailDoc As Object
Dim Maildb As NotesDatabase                Dim Maildb As Object

Seit dieser Maßnahme bekomme ich kein Bein mehr auf den Boden.

Hier mal ein kleines Beispiel:


Dim Maildb As NotesDatabase 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As NotesDocument 'Das Maildokument selbst
Dim Session As NotesSession 'Die Notes Session
   
  Set Session = New NotesSession
  Set Session = CreateObject("Notes.NotesSession")
  Set Maildb = Session.GetDatabase("", MailDbName)

  If Maildb.IsOpen = True Then
    'Fertig zum mailen!
  Else
    Maildb.OPENMAIL
  End If
       
   
  'Ein neues Maildokument erstellen
  Set MailDoc = Maildb.CreateDocument

  MailDoc.Form = "Memo"
  MailDoc.sendto = Recipient
  MailDoc.CopyTo = CopyTo
  MailDoc.Blindcopyto = Blindcopy
  MailDoc.Subject = Subject
  MailDoc.Body = BodyText
  MailDoc.SaveMessageOnSend = SaveIt

  'Lotus öffnen
  Dim Workspace As Object
  Set Workspace = CreateObject("Notes.NotesUIWorkspace")
  Call Workspace.EDITDOCUMENT(True, MailDoc).GOTOFIELD("Body")
   
  MailDoc.PostedDate = Now()
  MailDoc.Send 0, Recipient


Jedes mal kracht es schon ganz am Anfang bei

Set Session = CreateObject("Notes.NotesSession")

"Typen unverträglich"

Ich habe auch andere Beispiele getestet, welche As NotesSession, As NotesDataBase...etc deklariert waren. Leider immer mit dem gleichen Ergebnis.

Navigation

[0] Themen-Index

[#] Nächste Seite