Zelle als Email-Adresse formatieren?

[Grete]

Hallo,

manchmal erkennt Openoffice automatisch eine Eingabe als Email, manchmal nicht, öfters wird die Länderkennung nach dem Punkt nicht mitformatiert - gibt es eine Funktion, per Hand eine Zelle als Emailadresse zu formatieren?

Danke und Grüße,
Grete

[pianoplayer]

Versuch es doch mal mit "mailto:" vor der E-Mail-Adresse.

[Grete]

ups, vergessen mich anzumelden

[turtle47]

Hi Gast,

hier noch eine Möglichkeit:

Code: Alles auswählen

=HYPERLINK("mailto:Mailadresse@server.de";"Mail senden")

Hilft das weiter?

Jürgen

[Grete]

Das funktioniert, Danke. Allerdings ist es etwas mühsam, wenn man spaltenweise Emailadressen eingeben will. Ich hätte eigentlich eine Funktion erwartet ähnlich wie die der Formatierung als Währung oder Datum....

[turtle47]

Hallo Grete,

ich glaube ich habe jetzt herausgefunden warum der letzte Teil der Mailadresse "abgeschnitten ist.
Es passiert dann, wenn die Spalte zu schmal ist und der letzte Teil in die nächste Spalte reinragt.
Zumindest ist es mir eben wieder passiert.
Oder aber wenn die Mailadresse nicht vollstädig war und diese dann ergänzt wird.

1. Lösungsvorschlag
Ziehe die Spalte, wo die Mailadresse rein soll vorher breiter, um den gesamten Inhalt aufzunehmen.

2. Lösungsvorschlag
Du setzt folgendes Makro ein:

Code: Alles auswählen

Sub Hyperlink_Mail
	odoc=thiscomponent
	oSheet = oDoc.Sheets.getByName("Tabelle1")'Tabellenblattname
	oCellCursor = oSheet.createCursor()
	oCellCursor.GotoEndOfUsedArea(True)'letzte beschriebene Zeile suchen
	letzte_Zeile = oCellCursor.getRangeAddress.EndRow
	for z = 1 to letzte_Zeile +1
	oCell = oSheet.getCellRangeByName("A" & z) 'Spalte A
	sMail = oCell.String
	if smail = "" then
	oCell = oSheet.getCellRangeByName( "A" & z) 'Spalte A
	oCell.String = "Keine Mailadresse vorhanden"
	Goto NextMail
	else
	oCell = oSheet.getCellRangeByName( "A" & z)
	oCell.formula = "=Hyperlink(""Mailto:" & sMail & """" & ";" & """"& sMail  & """" & ")" 'Formel in Zelle schreiben
	oCell.charcolor=RGB (0,0,205)
	end if
	NextMail:
	next z
End Sub

In diesem Fall stehen die Mailadressen in Spalte "A". Diese Buchstaben kannst Du in dem Makro entsprechend Deiner
Tabelle anpassen.

Informationen zum Installieren und einbinden findest du hier:
http://www.ooowiki.de/MakrosInstallierenKapitel Quellcode..
http://www.ooowiki.de/MakrosMitEinemKlick
http://www.ooowiki.de/SchaltFl%C3%A4che

Als Anlage füge ich noch ein Tabellendokument an in dem Du Dir das mal ansehen kannst.

Jürgen

Edit: Sorry, da das Makro leider noch eine Macke hatte lade ich die aktuelle Version nochmals hoch!

Mailadresse_formatieren.ods

(9.64 KiB) 377-mal heruntergeladen

[Grete]

Vielen Dank, das ist genau das, was ich gesucht habe, toll!

[turtle47]

Hallo Zusammen,

für alle die es interessiert habe ich die Handhabung des Makros etwas vereinfacht und eine Extension dafür erstellt.
Man braucht den Zellbereich zum Formatieren jetzt nur mit der Maus markieren und nicht mehr im Code ändern.


Die Installation der Extension ist sehr einfach. Geht wie folgt vor:

1. Die Datei Mail2Format-1.0.0.zip runterladen
2. Falls OOo geöffnet bitte beenden.
3. Die Datei Mail2Format-1.0.0.zip in Datei Mail2Format-1.0.0.oxt umbenennen
4. Doppelklick auf die Datei Mail2Format-1.0.0.oxt
5. Installation der Extension mit Klick auf "OK" erlauben
6. Calc starten

Jetzt findet ihr in den Symbolleisten ein neues Symbol

Mail.jpg (1.32 KiB) 5676 mal betrachtet

Markiert den Zellbereich mit den Mailadressen und startet das Makro zum Formatieren über das neue Symbol.
Maildressen mit fehlerhafter Syntax, leere Zellen und "normaler" Text und werden von der Formatierung automatisch ausgeschlossen!!

Das Formatieren von ganzen Spalten habe ich wegen der langen Laufzeit ausgeschlossen.

Viel Erfolg.

Jürgen
Die aktuelle Version gibt es hier.

[Grete]

Klasse Jürgen, jetzt ist es echt perfekt, vielen Dank!

Grüße,
Grete

[Urs]

Der Script ist toll, vielen Dank.
Habe bei uns MA die Mailadresse mit "_" verwalten....die werden als Fehler ausgegeben.

[turtle47]

Hallo Urs,

vielen Dank für den Hinweis.
Sorry, aber ich wusste nicht das der Underscore in einer Mailadresse erlaubt ist.

Hier mal was auf die Schnelle.

Füge der in der

Code: Alles auswählen

Sub Check_Mail_Syntax

nach dem String

Code: Alles auswählen

select case myCode

folgende beiden Zeilen ein

Code: Alles auswählen

case  95 '_
FaildSyntax = 0

Damit sollte das Problem behoben sein.
Ich werde die Extension bei Gelegenheit mal anpassen.

Schöne Grüsse in die Schweiz.

Jürgen

[Urs]

Hallo Jürgen danke für die rasche Antwort.....
habe die von einem unseren MA gesammelten E-Mails geprüft.....
Underscore ist ein Sonderzeichen und deshalb definitv (noch) nicht erlaubt.

Sorry für die Umtriebe und Danke für die rasche Reaktion.
mit zerknirschten Grüssen Urs

[turtle47]

Guten Morgen Urs,

Underscore ist ein Sonderzeichen und deshalb definitv (noch) nicht erlaubt.

Da muss ich Dich leider berichtigen.

Nach Deinem Hinweis habe ich mir bei meinem Provider 1&1 eine Mailadresse mit Underscore
eingerichtet und mit Erfolg getestet.

mit zerknirschten Grüssen

Das kann man ja dann wohl vergessen

Ich wünsche Dir noch einen schönen Tag.

Jürgen

[Urs]

Habe alles versucht..aber auf meinem in der Firma installierten Linux-System komm ich nicht dazu die Datei zu mutieren.
Wäre also um eine kleine Anpassung in Deinem Download dankbar.
Gruss und "en guete" wie wir hier beim Mittagessen sagen.

[turtle47]

Ich werde die Extension bei Gelegenheit mal anpassen.

Na gut, ich will es nicht auf die lange Bank schieben.
Hier die angepasste Extension.

Mail2Format-1.0.1.zip

(10.48 KiB) 216-mal heruntergeladen

Die kannst Du einfach über die Alte drüberbügeln.