Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst UNC Pfad als Hyperlink in automatisch generierter Mail aus EXCEL 2007

Mitglied: c64b311ee9

c64b311ee9 (Level 1) - Jetzt verbinden

11.05.2015, aktualisiert 14:15 Uhr, 1088 Aufrufe, 6 Kommentare, 2 Danke

Hallo liebe Community,


gibt es die Möglichkeit den Befehl "Application.ThisWorkbook.Path" in einer E-Mail als Hyperlink zu einem UNC Pfad darzustellen?
Versuche eine Datei beim Speichern automatisch zu versenden. Das klappt auch soweit, nur wird der UNC PFad nicht als Hyperlink dargestellt, das wäre schön, wenn jemand helfen könnte

Danke!
Mitglied: 114757
LÖSUNG 11.05.2015, aktualisiert um 14:15 Uhr
Moin,
beschreibe doch anstatt den Plaintext-Body den HTMLBody, in den schreibst du einen Link ala
<a href="DeinLink"> blaBlaBla</a>
hinein, feddich.

01.
Set objOL = CreateObject("Outlook.Application")
02.
Set mail = objOL.CreateItem(0)
03.
With mail
04.
    .Subject = "Testmail"
05.
    .HTMLBody = "<a href=""" & ThisWorkbook.Path & """>DeinLink</a>"
06.
    .Display
07.
End With
08.
Set objOL = Nothing
Gruß jodel32
Bitte warten ..
Mitglied: c64b311ee9
11.05.2015 um 14:15 Uhr
Genial! Du bist mein Held! :D
Wenn du mir nun noch verräts wie ich eine Text Box einrichte, die vorher abfragt, ob eine Mail gesendet werden soll, oder nicht, dann wär ich wunschlos glücklich :D
Zur Zeit schickt Excel eine Mail, sobald auf Speichern geklickt wird.
Bitte warten ..
Mitglied: 114757
11.05.2015, aktualisiert um 14:20 Uhr
Kein Thema
01.
If MsgBox("Möchten sie eine Mail verschicken ?", vbYesNo Or vbQuestion) = vbYes Then
02.
    Set objOL = CreateObject("Outlook.Application")
03.
    Set mail = objOL.CreateItem(0)
04.
    With mail
05.
        .Subject = "Testmail"
06.
        .HTMLBody = "<a href=""" & ThisWorkbook.Path & """>DeinLink</a>"
07.
        .Display
08.
    End With
09.
    Set objOL = Nothing
10.
End If
Bitte warten ..
Mitglied: c64b311ee9
11.05.2015 um 14:30 Uhr
Hallo Jodel,

vielen Dank für deine tolle Hilfe bis hier hin! Also in meiner "Arbeitsmappe" habe ich folgenden Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Mailsenden
End Sub

und so sieht mein Modul aus:

Sub Mailsenden()
Dim olApp As Object
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.Recipients.Add "XXX"
.Recipients.Add "XXX"
'Betreff
.Subject = "Protokoll gespeichert"
'Inhalt der Nachricht
.HTMLBody = "<a href=""" & ThisWorkbook.Path & """>Protokoll</a> wurde gespeichert"
.Display
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Send
End With
Set olApp = Nothing
End Sub

Das mit der Messagebox funktioniert leider noch nicht ganz, also es passiert garnichts
Bitte warten ..
Mitglied: 114757
LÖSUNG 11.05.2015, aktualisiert um 14:55 Uhr
Das mit der Messagebox funktioniert leider noch nicht ganz, also es passiert garnichts
Ist ja auch gar nichts davon in deinem Code zu sehen :-P

01.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
02.
    If MsgBox("Möchten sie eine Mail verschicken ?", vbYesNo Or vbQuestion) = vbYes Then
03.
        Mailsenden
04.
    End If
05.
End Sub
06.

07.
Sub Mailsenden()
08.
    Dim olApp As Object
09.
    Set olApp = CreateObject("Outlook.Application")
10.
    With olApp.CreateItem(0)
11.
    'Empfänger
12.
    .Recipients.Add "XXX"
13.
    .Recipients.Add "XXX"
14.
    'Betreff
15.
    .Subject = "Protokoll gespeichert"
16.
    'Inhalt der Nachricht
17.
    .HTMLBody = "<a href=""" & ThisWorkbook.Path & """>Protokoll</a> wurde gespeichert"
18.
    .Display
19.
    'Lesebestätigung aus
20.
    .ReadReceiptRequested = False
21.
    'Dateianhang
22.
    .Send
23.
    End With
24.
    Set olApp = Nothing
25.
End Sub
Bitte warten ..
Mitglied: c64b311ee9
11.05.2015 um 14:55 Uhr
Ich bin absolut begeistert! Super vielen vielen Dank!!!
Bitte warten ..
Ähnliche Inhalte
Windows 7
UNC Pfad funktioniert nicht
Frage von patrickebertWindows 710 Kommentare

Hallo Liebe Foren User, Ich habe mal wieder ein bescheidenes Problem, wo ich nicht weiter komme. Und zwar betrifft ...

Windows Server
CName - UNC Pfad nicht aufrufbar
Frage von minimalwerkWindows Server18 Kommentare

Hallo liebe Community, ich verzweifle hier langsam. Wir mussten einen alten 2008er R2 FileServer durch einen neuen 2012er R2 ...

Netzwerkgrundlagen
Syncovery auf UNC-Pfad - Account
gelöst Frage von freenodeNetzwerkgrundlagen3 Kommentare

Hi, ich möchte in Syncovery (Super Flexible File Synchronizer) ein Profil einrichten welches Files von einer lokalen Festplatte auf ...

Batch & Shell
Problem mit UNC-Pfad ? powershell-skript
Frage von today12Batch & Shell2 Kommentare

Hallo liebe Community, ich hab ein kleines Verständnis Problem mit UNC-Pfade. ich möchte mein Skript auf ein Netzlaufwerk legen, ...

Neue Wissensbeiträge
Off Topic
Europawahl 2019 - Ein Statement der Jugend
Information von Frank vor 9 StundenOff Topic3 Kommentare

Dies ist ein offener Brief. Ein Statement. Von einem großen Teil der Youtuber-Szene. Am Wochenende sind die EU-Wahlen und ...

Off Topic
Europawahl 2019
Information von Frank vor 1 TagOff Topic32 Kommentare

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Humor (lol)

Minister wollen offenbar Ausweispflicht für .de-Domain

Information von Kraemer vor 1 TagHumor (lol)7 Kommentare

Zitat von Golem.de: Die zuständigen Verbraucherschutzminister fordern einem Medienbericht zufolge offenbar eine Ausweispflicht für .de-Domains. Das soll Betrugsfälle mit ...

Off Topic
Was als Noob hier mal gesagt werden musste
Information von th30ther vor 3 TagenOff Topic5 Kommentare

Moinsen wertes Forum, ich möchte mich an dieser Stelle mal beim Forum generell und bei aqui speziell bedanken! Ich ...

Heiß diskutierte Inhalte
Off Topic
Europawahl 2019
Information von FrankOff Topic32 Kommentare

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Ausbildung
Wie sind eure Erfahrungen als oder mit Ü30 Azubis für Fachinformatik Systemintegration?
Frage von CaptainProcessorAusbildung26 Kommentare

Tagchen allerseits :) Mir steht in wenigen Monaten eine Veränderung bevor, da mein AG seine IT auslagert und ich ...

Router & Routing
ZyXEL ZyWALL USG 20 Routing
Frage von Oggy01Router & Routing14 Kommentare

Hallo, und wieder habe ich ein Problem mit dem Routing. Bis vor ein paar Tagen habe ich das mit ...

Virtualisierung
VServer (Linux): Absichern, verschlüsseln usw
Frage von mrserious73Virtualisierung11 Kommentare

Hallo zusammen, ich möchte einen Linux-Vserver mieten und diesen absichern. Darunter verstehe ich in diesem Falle hauptsächlich: Dafür sorgen, ...