Thema Datum  Von Nutzer Rating
Antwort
Rot Unterschiedlicher Link bei E-Mail Makro
03.08.2021 12:34:30 Andi
Solved

Ansicht des Beitrags:
Von:
Andi
Datum:
03.08.2021 12:34:30
Views:
160
Rating: Antwort:
 Nein
Thema:
Unterschiedlicher Link bei E-Mail Makro

Hallo zusammen,

bräuchte VBA-Profi :-) Hilfe für folgendes Problem:

Unten stehendes Makro erzeugt eine einen Link zum jeweiligen Excel-File. Nun kann man diese Excel-Sheets bei uns auf der Arbeit über zwei Wege öffnen. Entweder über den Internet-Explorer (Was leider die meisten tun) oder über den Explorer. Wenn das File über den Internet-Explorer geöffnet wird und das Makro gestartet wird, wird der Link (siehe unten) unter E-Mail "normal" versendet, beim Explorer der "Explorer" Link. Ich kann es mir nicht erklären, aber es hängt definitiv davon ab, welchen Weg man wählt, das File zu öffnen.

Nun kann man auf den "Explorer"-Link einfach draufklicken und man gelangt zum File, beim "normal"-Link geht das leider nicht (Fehlermeldung), man kann diesen lediglich kopieren und in den Explorer einfügen und gelangt dann wiederrum zum File, was natürlich etwas umständlicher ist und für manche Kollegen ist das wohl zu viel erwartet. 

Nun die Frage: Kann man im Makro den "normal"-Link (Falls dieser generiert wird) irgend wie ummodeln, sodass immer der "Explorer"-Link generiert wird. 

Da diese vom Aufbau immer gleich sind hätte ich auch eine theoretische Idee, kann diese aber selber leider nicht umsetzen:

1) http://lsharep01/ ersetzen durch \\lsharep01\DavWWWRoot\

2) "/" ersetzen durch "\"

 

Wäre für eure Hilfe sehr dankbar :-)

Unten die Links und der jetztige Code (a,b,c,d,e definiert nur den Betreff, muss nicht beachtet werden)

 

E-Mail „normal“:

Sehr geehrte Damen und Herren,

bitte Stundenanpassung in SAP übertragen. Bitte dem Link folgen. http://lsharep01/sites/Auftrag/Freigegebene Dokumente/452026707 6062185 32340 P2400G ZF Wind Power (CN)/Logbuch 6062185.xlsm

 

E-Mail „Explorer“:

Sehr geehrte Damen und Herren,

bitte Stundenanpassung in SAP übertragen. Bitte dem Link folgen. \\lsharep01\DavWWWRoot\sites\Auftrag\Freigegebene Dokumente\452026707 6062185 32340 P2400G ZF Wind Power (CN)\Logbuch 6062185.xlsm

Code:

Sub Planstunden_Versenden()
Dim olApp As Object

a = Worksheets("Deckblatt").Range("b21").Value
b = Worksheets("Deckblatt").Range("b23").Value
c = Worksheets("Deckblatt").Range("b19").Value
d = Worksheets("Deckblatt").Range("b17").Value
e = Worksheets("Deckblatt").Range("b15").Value


Set olApp = CreateObject("Outlook.Application")
   With olApp.CreateItem(0)
             .To = "test@email.com" 'Empfänger
             .Subject = "Planstundenanpassung" & " " & a & " " & b & " " & c & " " & d & " " & e 'Betreff
             .htmlBody = "Sehr geehrte Damen und Herren,<br><br>" & _
                         "bitte Stundenanpassung in SAP übertragen. Bitte dem Link folgen. " & _
                         "<a href=""file://" & ActiveWorkbook.FullName & """>" & _
                         ActiveWorkbook.FullName
             .display
   End With
End Sub


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Unterschiedlicher Link bei E-Mail Makro
03.08.2021 12:34:30 Andi
Solved