Dim
Subject
As
String
, bodytext
As
String
, saveit
As
Boolean
Dim
ToAdressen(10)
As
String
Dim
Maildb
As
Object
Dim
UserName
As
String
Dim
MailDbName
As
String
Dim
MailDoc
As
Object
Dim
AttachME
As
Object
Dim
Session
As
Object
Dim
EmbedObj
As
Object
Dim
Recip
As
Variant
Dim
LinkME
As
Object
Dim
testlink
As
String
Recip = Recipient
Subject = Betreff
bodytext = Text1 & vbLf & vbLf & Text2 & vbLf & vbLf & Text3
Set
Session = CreateObject(
"Notes.NotesSession"
)
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName,
" "
))) &
".nsf"
Set
Maildb = Session.GetDatabase(
""
, MailDbName)
If
Maildb.IsOpen =
True
Then
Else
Maildb.OPENMAIL
End
If
Set
MailDoc = Maildb.CreateDocument
MailDoc.Form =
"Memo"
MailDoc.sendto = Recip
MailDoc.Subject = Subject
MailDoc.body = bodytext
MailDoc.SaveMessageOnSend =
True
If
attachment <>
""
Then
Set
AttachME = MailDoc.CreateRichTextItem(
"Attachment"
)
Set
EmbedObj = AttachME.EmbedObject(1454,
""
, attachment,
"Attachment"
)
End
If
MailDoc.PostedDate = Now()
MailDoc.Send 0, Recip
Set
Maildb =
Nothing
Set
MailDoc =
Nothing
Set
AttachME =
Nothing
Set
Session =
Nothing
Set
EmbedObj =
Nothing