Thema Datum  Von Nutzer Rating
Antwort
02.05.2024 09:31:50 Mike
NotSolved
02.05.2024 11:02:02 Gast44060
*****
NotSolved
Rot Outlook automatischer Download von Hyperlinks
 02.05.2024 11:21:44 Mike
NotSolved
02.05.2024 11:30:43 Gast96993
*****
NotSolved
02.05.2024 11:50:37 Mike
NotSolved
02.05.2024 11:59:49 Gast57315
*****
NotSolved
02.05.2024 12:01:28 Gast30342
Solved

Ansicht des Beitrags:
Von:
Mike		 Datum:
02.05.2024 11:21:44		 Views:
310		 Rating:
     
Antwort:
  Ja
Thema:
Outlook automatischer Download von Hyperlinks

Vielen Dank für deinen Hinweis! Ich habe jetzt den unteren Code-Abschnitt in die Schleife gepackt:

?
1
2
3
4
5
6
7
8
9
10
        For Each oLink In oRng.hyperlinks
             If Right(LCase(oLink.Address), 3) = "pdf" And _
               Left(LCase(oLink.Address), 4) = "http" Then
                vAddr = Split(oLink.Address, "/")
                strFName = vAddr(UBound(vAddr))
                strURL = oLink.Address
                strLocal = strPath & strFName     'here the drive and download directory
            End If
            URLDownloadToFile(0, strURL, strLocal, 0, 0) = 0
        Next oLink

Aber bei  "URLDownloadToFile" kommt beim Kompilieren immer ein Fehler "Funktionsaufruf der linken Seite der Zuweisung muss den Typ Variant oder Object" zurückgeben.

Ich habe deshalb den ursprünglichen Code in die Schleife geschoben und die msg-box auskommentiert. Jetzt funktioniert es, sieht aber gruselig aus... Naja "if it works, it cant be silly"...

Vielen Dank dir!

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    For Each oLink In oRng.hyperlinks
             If Right(LCase(oLink.Address), 3) = "pdf" And _
                Left(LCase(oLink.Address), 4) = "http" Then
                vAddr = Split(oLink.Address, "/")
                strFName = vAddr(UBound(vAddr))
                strURL = oLink.Address
                strLocal = strPath & strFName     'here the drive and download directory
                   If URLDownloadToFile(0, strURL, strLocal, 0, 0) = 0 Then
                       ' MsgBox strFName & " - downloaded"
                       '    Else
                       '    MsgBox strFName & " - download failed"
                    End If
            End If
   Next oLink

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
02.05.2024 09:31:50 Mike
NotSolved
02.05.2024 11:02:02 Gast44060
*****
NotSolved
Rot Outlook automatischer Download von Hyperlinks
 02.05.2024 11:21:44 Mike
NotSolved
02.05.2024 11:30:43 Gast96993
*****
NotSolved
02.05.2024 11:50:37 Mike
NotSolved
02.05.2024 11:59:49 Gast57315
*****
NotSolved
02.05.2024 12:01:28 Gast30342
Solved