Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Skript zum versenden von Mails aus Excel löst Rechtschreibprüfung aus

<< < (2/2)

emil17:
Hallo Axel,

ich würde das ganze ja auch gerne im Backend machen.

Leider enthält der Mailtext auch einen Link. Bisher habe ich es im Backend nicht geschafft, dass LN mir einen Link daraus macht. Wenn die Mail beim Empfänger ankommt, wird zwar der Link als Text angezeigt, aber wenn man darauf klickt passiert nichts.
Ich hoffe ich habe es verständlich beschrieben.

Ich habe es auch mit dem Code probiert, die mail kommt zwar an, aber nur als Text nicht als html

Set richStyle = session.CreateRichTextStyle

'Create and set the Body content
Set body = MailDoc.CREATERICHTEXTITEM("Body")
richStyle.PASSTHRUHTML = True

Call body.APPENDSTYLE(richStyle)


Call body.AppendText("<B>Hello</B>")

emil17:

--- Zitat von: emil17 am 14.06.12 - 13:55:02 ---Hallo Axel,

ich würde das ganze ja auch gerne im Backend machen.

Leider enthält der Mailtext auch einen Link. Bisher habe ich es im Backend nicht geschafft, dass LN mir einen Link daraus macht. Wenn die Mail beim Empfänger ankommt, wird zwar der Link als Text angezeigt, aber wenn man darauf klickt passiert nichts.
Ich hoffe ich habe es verständlich beschrieben.

Ich habe es auch mit dem Code probiert, die mail kommt zwar an, aber nur als Text nicht als html


--- Code: ---Function sendemail()

Dim Maildb As Object
Dim MailDoc As Object
Dim body As Object
Dim session As Object
Dim richStyle As Object
Dim richtext As Object
Dim sendto As Variant
Dim username As String
Dim maildbname As String

'Start a session to notes
Set session = CreateObject("Notes.Notessession")
'Call Session.Initialize
username = session.username

maildbname = Left$(username, 1) & Right$(usermane, (Len(username) - InStr(1, username, ""))) & ".nsf"
''Open the mail database in notes
Set Maildb = session.GETDATABASE("", maildbname)
''Open the mail database in notes
If Maildb.IsOpen = True Then
Else
Call Maildb.OPENMAIL
End If
''Create the mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.sendto = "xy@atnotes.de"
MailDoc.Subject = "Test lotus Notes"
MailDoc.Form = "Memo"
MailDoc.CONTENTTYPE = "text/html; charset=iso-8859-1"
MailDoc.preference = no

'Session.CONVERTMIME = False
Set richStyle = session.CreateRichTextStyle

'Create and set the Body content
Set body = MailDoc.CREATERICHTEXTITEM("Body")
richStyle.PASSTHRUHTML = True

Call body.APPENDSTYLE(richStyle)


Call body.AppendText("<B>Hello</B>")
'Call body.richStyle.AppendText("<B>Hello</B>")
Call body.AppendText("<a href=http://www.atnotes.de>atnotes</a>")
Call body.ADDNEWLINE(2)
Call body.AppendText("Hello HTML")




MailDoc.SAVEMESSAGEONSEND = True
Call MailDoc.REPLACEITEMVALUE("PostedDate", Now())
Call MailDoc.SEND(False)
Call MailDoc.Save(True, False)
'Session.CONVERTMIME = True

Set Maildb = Nothing
Set MailDoc = Nothing
Set body = Nothing
Set session = Nothing

End Function
--- Ende Code ---

--- Ende Zitat ---

Navigation

[0] Themen-Index

[*] Vorherige Sete