E-mails mit Hyperlink

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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.

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

E-mails mit Hyperlink

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread