Domino 9 und frühere Versionen > ND6: Entwicklung

Empfangenes Mail leider immer im Editmode

(1/4) > >>

robertpp:
Hallo,
Das Ziel welches ich verfolge ist, ein mail zu versenden wo ein Link drinnen ist aber nicht als einfachen url sondern mit <a href=......  >click me</a>

Das mach ich so:


--- Code: ---Sub MimeMailer(SendTo As Variant, Subject As String, url As String, doc As NotesDocument)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim body As NotesMIMEEntity
Dim stream As NotesStream
Dim tmpURL As String
Dim message As NotesDocument
Dim mailbox As New NotesDatabase("","")
Set db = s.CurrentDatabase

tmpURL = |<font face="Arial" size="2"><a href='| + URL + |'>Click Here to activate user</a></font><br>|

s.ConvertMIME = False
Set stream = s.CreateStream

Call mailbox.Open("SERVER","mail.box")
If mailbox.IsOpen Then
Dim sender As String

Set message = mailbox.CreateDocument
message.Form="memo"
sender = "Admin"
Set body = message.CreateMIMEEntity
Dim mimeHeader As NotesMIMEHeader
Set mimeHeader = body.CreateHeader( "SMTPOriginator" )
Call mimeHeader.SetHeaderVal( sender )
Set mimeHeader = body.CreateHeader( "Sender" )
Call mimeHeader.SetHeaderVal( sender )
Set mimeHeader = body.CreateHeader( "INetFrom" )
Call mimeHeader.SetHeaderVal( sender )
Set mimeHeader = body.CreateHeader( "ReplyTo" )
Call mimeHeader.SetHeaderVal( sender )
Set mimeHeader = body.CreateHeader( "Principal" )
Call mimeHeader.SetHeaderVal( sender )
Set mimeHeader = body.CreateHeader( "From" )
Call mimeHeader.SetHeaderVal( sender )

message.Subject = Subject
message.SendTo = SendTo
message.Recipients = SendTo

Dim htmlbeforeurl As String, htmlafterurl As String
htmlbeforeurl = |<font face="Arial" size="2">Hi,<br><br>

There is a new user to activate:<br><br>
Username is: | +doc.Username(0) + |<br>
Email is: | +doc.email(0) + |<br>
<br></font>
|

Call stream.WriteText(htmlbeforeurl)
Call stream.WriteText(tmpURL)

htmlafterurl = |<font face="Arial" size="2"><br>
Best Regards<br>
Admin Team
</font>|

Call stream.WriteText(htmlafterurl)

Call body.SetContentFromText (stream, "text/html;charset=iso-8859-1", ENC_NONE)

Call message.Save( True, False )
End If

s.ConvertMIME = True ' Restore conversion
End Sub

--- Ende Code ---

Das Mail wird auch sehr schön versendet ABER:
Es ist dann immer beim öffnen in der Datenbank im Edit mode!!!
Wie bekomme ich es hin, dass das nicht so ist! Das Problem ist nämlich der link funktioniert dann klarerweise nicht!

Wenn ich diese Zeilen weg lasse:


      Dim mimeHeader As NotesMIMEHeader      
      Set mimeHeader = body.CreateHeader( "SMTPOriginator" )
      Call mimeHeader.SetHeaderVal( sender )
      Set mimeHeader = body.CreateHeader( "Sender" )
      Call mimeHeader.SetHeaderVal( sender )
      Set mimeHeader = body.CreateHeader( "INetFrom" )
      Call mimeHeader.SetHeaderVal( sender )
      Set mimeHeader = body.CreateHeader( "ReplyTo" )
      Call mimeHeader.SetHeaderVal( sender )
      Set mimeHeader = body.CreateHeader( "Principal" )
      Call mimeHeader.SetHeaderVal( sender )
      Set mimeHeader = body.CreateHeader( "From" )
      Call mimeHeader.SetHeaderVal( sender )
   
   
 dann ist das mail richtig und ich kann den link sofort anklicken ich hab aber keinen Sender drinnen stehen das will ich auch nicht haben:

Gibt es da eine Lösung für mein Problem?

danke Robert

koehlerbv:
Setz da mal noch das PostedDate, sonst meint der Code in der empfangenden Mail-DB, dies sei ein Entwurf - und der wird im EditMode geöffnet (was ja auch Sinn macht).

Bernhard

robertpp:
hallo Bernhard,

Echt dumm, das es daran gelegen hat!
Greift da notes wirklich einfach nur auf das Datum zum?

danke Robert

robertpp:
Hallo,

Jetzt hab ich noch eine Frage dazu!

Kann ich den link auch so erstellen, dass es am Blackberry auch noch ein link ist?
Derzeit sehe ich am Blackberry nur den Text es ist aber kein link mehr?

danke Robert

robertpp:
Hallo,

So jetzt hab ich auch das Problem, dass mein Link auch im Outlook funktionieren soll nur ist es dort auch nur ein reiner Text!

Kann mir da jemand einen tipp geben wie ich das hinbekomme, dass es im Exchange auch noch ein Link ist?

danke Robert

Navigation

[0] Themen-Index

[#] Nächste Seite