Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: du2008 am 04.06.10 - 16:37:12

Titel: Lotus script, Excel, VBA, mailto
Beitrag von: du2008 am 04.06.10 - 16:37:12

Hallo zusammen,

vielleicht hat jemand sowas schon mal gemacht...

Ich hole aus einer Notesdatenbank mit Lotusscript Daten und befülle damit eine Exceltabelle.
In einer Spalte stehen Internetmailadressen, welche so formatiert werden sollen das beim klick sofort Mailclient(kein Notes) mit Adresse startet.

Ich kann in der Exceldatei zwar ein Macro laufen lassen
Sub Makro1()
For Each cell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "mailto:" + ActiveCell.Value, TextToDisplay:=ActiveCell.Value       
Next cell
End Sub

aber besser soll das schon beim befüllen mit Script passieren.
Wie kann ich den Syntax oben von VBA in LS übersetzen???
Geht das überhaupt?

Danke und Gruß
Dirk
 

Titel: Re: Lotus script, Excel, VBA, mailto
Beitrag von: jBubbleBoy am 04.06.10 - 22:10:54

Solche Excelausdrücke kann man recht gut auch in Notes abbilden. Die Anzahl der Parameter und der Typ sind fest vorgegeben, d.h die Typendefinition von Excel brauchst Du nicht wirklich nur die Konstanten musste dir vorher anschauen was die für einen Wert haben. Das mach ich immer in VBA mit "msgbox die_excel_konstante" und schreib das dann als CONST in Lotusscript, aber ich sehe gerade Excelkonstanten haste ja gar nicht ;)

Das heißt wenn du eine Variable excel vom Typ Excelapplication hast, dann müsste das ganze etwa so aussehen:

Code

call excel.ActiveSheet.Hyperlinks.Add (excel.Selection, "mailto:" + excel.ActiveCell.Value, excel.ActiveCell.Value) 

Titel: Re: Lotus script, Excel, VBA, mailto
Beitrag von: du2008 am 22.06.10 - 10:01:02

danke an jbubbleboy, das hat auf Anhieb funktioniert.