Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Per VBA von unterschiedlichen Mail-Files versenden

(1/2) > >>

MyPass:
Hallo,

mit Hilfe des Forums und Google habe ich es geschafft, dass ich über VBA Mails versenden kann und auch Anhänge verarbeiten kann. Ich hänge jetzt aber fest Mails auch von einer allgemeinen Mailbox zu versenden.

Der bisherige Code lautet:

' Notes Saisson starten
  Set Session = CreateObject("Notes.NotesSession")
  UserName = Session.UserName
  MailDbName = Left$(UserName, 1) & _
    Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
' Öffnen der Notes-Datenbank
  Set Maildb = Session.GETDATABASE("", MailDbName)


An der markierten Stelle muss etwas anderes rein...? Nur was? Mit MailDbName="" habe ich es auch schon versucht.


Mein Mailfilename lautet  "int/xxx/hmuster.nsf"  (1. Stelle vom Vorname + Nachname + .nsf)

Versenden möchte ich von "int/xxx/allgemeina.nsf", Der Benutzer für die DB ist "Allgemein-Abteilung"!


Habt ihr Tipps wonach ich suchen muss, damit ich das hinbekomme!

Danke & Ciao
MyPass

Peter Klett:
MailDbName = "int/xxx/allgemeina.nsf"

Ist sichergestellt, dass die Datenbank lokal liegt? Sonst musst Du einen Server angeben.

Woher soll VBA wissen, wie der Dateiname der Datenbank ist? Den musst Du, wenn Du ihn nicht errechnen kannst (wie in Deinem Beispiel aus dem Usernamen), vorgeben, oder irgendwo definierbar machen.

Es gibt m.W. keine feste Regelung, dass die Maildatenbank zwingend aus dem ersten Buchstaben des Vornamens und dem (oder Teilen des) Nachnamen(s) besteht. Den Dateinamen der aktuellen Maildatenbank kann man aus der Arbeitsumgebung auslesen, in Formel gibt es dafür @MailDBName, ob es ein Gegenstück in Script gibt, weiß ich nicht, müsste ich auch nachsehen.

MyPass:
Hallo,

danke für deine Info. Die Datenbank liegt definitiv nicht lokal sondern auf einem Server.

Aber auch die DB mit meinem Account, liegt am Server, und da funktioniert es.

Kannst du mir bitte nochmals einen Tipp geben, wie ich den Server abgeben.

....Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"

Mit meiner Server-DB funktioniert auch dieses Beispiel...

Thx
MyPass

Peter Klett:
Set Maildb = Session.GETDATABASE(Server, MailDbName)

Banni:
Hallo,

was passiert, wenn Du den Namen der Mailbox mal fest "verdrahtest"? Wird die Mail dann aus Deiner Mailbox gesendet oder aus der allgemeinen?

Ich glaube, das Problem ist hier nicht der DB-Name. Beim Senden der Mail wird, wenn ich das richtig in Erinnerung habe, auf die aktuell in der notes.ini eingestellte Arbeitsumgebung zugegriffen. Änder dort mal die Einstellungen für Mailserver und Maildatei auf die Daten der allgemeinen Mailbox und teste das Ganze.

Gruß Jan

Navigation

[0] Themen-Index

[#] Nächste Seite