E-mails mit Hyperlink

Juergen · 2005-06-06T07:59:54+00:00

Hallo allerseits, durch ein kleines Makro liegt mir eine Excel- Tabelle mit Adressangaben sowie E-mail- Hyperlinks (Form ab@c.de) vor. Durch Anklicken der E-mail Anschrift öffnet sich Qutlook und es kann mit der Texteingabe begonnen werden. Da nun aber viele der E-mails den gleichen Betreff sowie Anschreiben haben, würde ich mir gerne diese wiederholende Schreib- und Kopierarbeit sparen. Der Betreff usw. sollen aus einer Celle der Excel-Tabelle ausgelesen und eingefügt werden. Wie kann ich den Hyperlinks erklären, dass sie ihr Subjekt, Body usw. aus einer Celle auslesen sollen? Besten Dank.

Hi,
hoffentlich stört es Dich nicht, wenn ich gleich wieder antworte ;o)
zu 1.) Das passiert nicht, wenn Du keinen body- Text angibst. Also: Die vorhandene Signatur wird durch die Angabe eines body- Textes überschrieben. Ich sehe da nur die Lösung, daß Du die Signatur auch in Excel in eine bestimmte Zelle schreibst, und diese an den body- Teil des Hyperlinks ranhängst.
zu 2.)Den Zeilenumbruch in Excel erzeugst Du mit Alt+Enter (vielleicht war es nur das, was Du wissen wolltest :o) )
Diesen musst du aber maskieren, weil er sonst vom Email- Programm erkannt wird:
siehe http://de.selfhtml.org/navigation/suche/index.htm?Suchanfrage=mailto%3A
...Zeichen..., die maskiert werden müssen, weil sie innerhalb von URIs nicht vorkommen dürfen oder eine bestimmte Bedeutung haben. Links steht das Zeichen, rechts die Zeichenkette, mit der Sie das Zeichen maskieren müssen:
Zeichen Zeichenkette für Maskierung
[neue Zeile] %0A
[Neue Zeile] ist in einer Excel- Zelle der ASCII- Code 10, den Du mit Wechseln(Text;Zeichen(10);"%0a") austauschst.
(Konsequenterweise müsste man auch die & maskieren, das funzt aber auch so.)
zu 3.) Das geht nur über steinige Umwege. Darum solltest Du diese "Anweisungen" direkt in den Link schreiben. Es gibt zwar ein Ereignis, daß nach Aufrufen eines Hyperlinks in VBA verarbeitet werden kann, aber ebend NACH dem Aufrufen, dann ist der Zug (bzw. der Link- Aufruf) schon abgefahren.
Aus Deinem Code werde ich nicht ganz schlau. Mein Angebot bleibt: Wenn Du mir ein paar mehr Infos gibst (idealerweise eine Beispielmappe), dann bau ich Dir das zusammen. Ist ja nicht nur für Dich interessant.
Gruss- Micha

Hi Jürgen,
na da habe ich mich schon mehr erschreckt ;o)
So kannst Du das eibauen:

'--- den DIM- Block unter Sub Anschreiben_Click() schreiben
Dim strEmailLink As String
Dim strEmailBetreff As String
Dim strEmailAnschreiben As String
Dim strEmailTextbaustein As String
'---
...
Worksheets("Anschreiben").Cells(d, 6) = Worksheets("Adressendaten").Cells(c, 12)
'Bis hier Dein Code

strEmailBetreff = Worksheets("Positionen").Cells(2, 3)
strEmailAnschreiben = Worksheets("Positionen").Cells(5, 1)
strEmailTextbaustein = Worksheets("Positionen").Cells(8, 1)
'An
strEmailLink = "mailto:" & Worksheets("Adressendaten").Cells(c, 13).Text
'Betreff
strEmailLink = strEmailLink & "&subject=" & strEmailBetreff
'Body
strEmailLink = strEmailLink & "&body=" & strEmailAnschreiben & vbCrLf & strEmailTextbaustein

'Zeilenumbrüche umwandeln
strEmailLink = Application.WorksheetFunction.Substitute(strEmailLink, Chr(10), "%0a")

Worksheets("Anschreiben").Hyperlinks.Add _
  anchor:=Worksheets("Anschreiben").Cells(d, 7), _
  Address:=strEmailLink, _
  ScreenTip:="Mail an: " & Worksheets("Adressendaten").Cells(c, 13).Text, _
  TextToDisplay:=Worksheets("Adressendaten").Cells(c, 13).Text

'---
'weiter Dein Code
'Worksheets("Adressendaten").Cells(c, 13).Copy -->kann raus!
'Worksheets("Anschreiben").Cells(d, 7).PasteSpecial --> kann raus!
d = d + 1
Gruss- Micha
PS: Guck Dir mal in der Hilfe die With- Anweisung an.

Forumthread: E-mails mit Hyperlink

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial