Autor Thema: Lotus script, Excel, VBA, mailto  (Gelesen 3699 mal)

Offline du2008

  • Frischling
  • *
  • Beiträge: 28
Lotus script, Excel, VBA, mailto
« 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
 

Offline jBubbleBoy

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.290
  • Geschlecht: Männlich
Re: Lotus script, Excel, VBA, mailto
« Antwort #1 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) 
Gruss Erik :: Freelancer :: KI-Dev, Notes, Java, Web, VBA und DomNav 2.5 / NSE 0.16 / OLI 2.0

--
Nur ein toter Bug, ist ein guter Bug!

Offline du2008

  • Frischling
  • *
  • Beiträge: 28
Re: Lotus script, Excel, VBA, mailto
« Antwort #2 am: 22.06.10 - 10:01:02 »
danke an jbubbleboy, das hat auf Anhieb funktioniert.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz