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