OpenOffice.info

mein Dank wird Dir ewig nachschleichen. :D
Schönes Wochenende

[quote="turtle47"]Ich werde die Extension bei Gelegenheit mal anpassen.
[/quote]
Na gut, ich will es nicht auf die lange Bank schieben.
Hier die angepasste Extension.[attachment=0]Mail2Format-1.0.1.zip[/attachment]
Die kannst Du einfach über die Alte drüberbügeln. :D

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.

Guten Morgen Urs,

[quote="Urs"]Underscore ist ein Sonderzeichen und deshalb definitv (noch) nicht erlaubt.
[/quote]
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. :lol: [quote="Urs"]mit [b]zerknirschten[/b] Grüssen
[/quote]
Das kann man ja dann wohl vergessen :wink:

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

Jürgen

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 :(

Sub Check_Mail_Syntax

select case myCode

case  95 '_
FaildSyntax = 0

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]Sub Check_Mail_Syntax[/code]
nach dem String[code]select case myCode[/code]
folgende beiden Zeilen ein[code]case 95 '_
FaildSyntax = 0[/code]

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

Schöne Grüsse in die Schweiz.

Jürgen

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

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

Grüße,
Grete

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 :lol: 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.[b]zip[/b] in Datei Mail2Format-1.0.0.[b]oxt[/b] 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[attachment=0]Mail.jpg[/attachment]

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!! :D

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

Viel Erfolg.

Jürgen
Die aktuelle Version gibt es [url=http://de.openoffice.info/viewtopic.php?f=2&t=17857&st=0&sk=t&sd=a&start=15#p78205]hier[/url].

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

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

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]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[/code]


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![attachment=0]Mailadresse_formatieren.ods[/attachment]

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....

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

Hi Gast,

hier noch eine Möglichkeit:
[code]=HYPERLINK("mailto:Mailadresse@server.de";"Mail senden")[/code]

Hilft das weiter?

Jürgen

ups, vergessen mich anzumelden :shock:

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