Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel Datei als Link versenden

Excel Datei als Link versenden
05.05.2008 19:28:00
mario
Hallo,
aus einer Excel-Mappe wird ein einzelnes Blatt "Monat" erzeugt, auf einem Laufwerk gespeichert und versendet.
Nun soll aber nicht die Datei als Anhang sondern nur ein Link zu dieser versendet werden. Wie kann ich das denn machen?
Danke
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
'Empfänger
.To = MailAdresse
'Betreff
.Subject = Bericht1 & " vom" & " " & Monat
'Nachricht
.HTMLBody = strhtml
'Lesebestätigung aus
.ReadReceiptRequested = False
'Dateianhang
.Attachments.Add AWS
.Send
End With
Set olApp = Nothing

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Excel Datei als Link versenden
05.05.2008 20:50:00
mumpel
Hallo!
So sollte es funktionieren.
Sub LinkZuDateiInMail()
On Error Resume Next
Dim olapp As Object
Dim datei As String
Set olapp = CreateObject("Outlook.Application")
With olapp.CreateItem(0)
datei = Application.GetSaveAsFilename(Date & "_" & Hour(Time) & Minute(Time) & ".XLS")
Rem Arbeitsmappe kopieren und speichern (Datei) 
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs datei
Rem Empfänger 
.To = MailAdresse
Rem Betreff 
.Subject = Bericht1 & " vom" & " " & Monat
Rem Link zur datei in HTML-Body schreiben 
.HTMLBody = "<a href=""" & datei & """>" & "hier herunterladen</a>"
Rem Lesebestätigung aus 
.ReadReceiptRequested = False
Rem Dateianhang 
Rem .Attachments.Add 
.display
''SendKeys "%s", True ' optional Mail sofort senden 
End With
Set olapp = Nothing
ActiveWorkbook.Close
On Error GoTo 0
End Sub


Gruß, Rene

Anzeige
Nachteil:
05.05.2008 20:57:00
mumpel
Nachteil: Der Link wird nicht funktionieren, wenn die Datei auf Deinem PC liegt und Du die Mail an andere PC's sendest. Dann nämlich verweist der Link auf den PC des Empfängers. In Netzwerken sollte es aber funktionieren.

AW: Nachteil:
06.05.2008 11:30:00
mario
Hallo,
danke ich werde es gleich testen.
Es ist auch so, das die Kollegen auf ein gemeinsames Netzlaufwerk zugreifen.

Anzeige
AW: Nachteil:
06.05.2008 13:06:00
mario
Hallo,
es funktioniert, ich habe aber nur 2 Zeilen übernommen.
Dankeschön!!!
...noch 'ne Frage,
wie bekomme ich diese Textbox in der Dein Code steht hin.

AW: Nachteil:
07.05.2008 01:02:00
mumpel
Das ist ein Add-In von Lukas Mosimann. Läuft aber noch nicht so optimal, sind noch ein paar kleine Fehler drin. Betrifft aber nur die Formularbeschreibung. Siehe Beitrag hier-> https://www.herber.de/forum/messages/974797.html
Eine Anleitung gibt es dafür noch nicht, daran arbeiten wir noch.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Excel Datei als Link versenden


Schritt-für-Schritt-Anleitung

Um eine Excel Datei als Link zu versenden, kannst Du folgenden VBA-Code nutzen. Stelle sicher, dass Du über Microsoft Outlook verfügst, da der Code zur E-Mail-Versendung Outlook verwendet.

Sub LinkZuDateiInMail()
    On Error Resume Next
    Dim olapp As Object
    Dim datei As String
    Set olapp = CreateObject("Outlook.Application")
    With olapp.CreateItem(0)
        datei = Application.GetSaveAsFilename(Date & "_" & Hour(Time) & Minute(Time) & ".XLS")

        ' Arbeitsmappe kopieren und speichern (Datei)
        ActiveWorkbook.ActiveSheet.Copy
        ActiveWorkbook.SaveAs datei

        ' Empfänger
        .To = MailAdresse
        ' Betreff
        .Subject = Bericht1 & " vom" & " " & Monat
        ' Link zur Datei in HTML-Body schreiben
        .HTMLBody = "<a href=""" & datei & """>hier herunterladen</a>"
        ' Lesebestätigung aus
        .ReadReceiptRequested = False
        .Display
        ' Optional Mail sofort senden
        ' SendKeys "%s", True
    End With
    Set olapp = Nothing
    ActiveWorkbook.Close
    On Error GoTo 0
End Sub

Dieser Code erstellt einen Link zu der Excel-Datei, die Du versendest. Achte darauf, dass die Datei auf einem gemeinsamen Netzlaufwerk gespeichert wird, damit der Empfänger darauf zugreifen kann.


Häufige Fehler und Lösungen

  • Fehler: Link funktioniert nicht
    Wenn der Link nicht funktioniert, könnte die Datei lokal auf Deinem Computer gespeichert sein. Stelle sicher, dass die Datei auf einem Netzlaufwerk gespeichert wird, das für den Empfänger zugänglich ist.

  • Fehler: E-Mail wird nicht gesendet
    Überprüfe, ob Outlook korrekt eingerichtet ist und dass Du die entsprechenden Berechtigungen hast, um E-Mails zu versenden.


Alternative Methoden

Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du die Excel Datei auch manuell in einen Cloud-Speicher (wie OneDrive oder Google Drive) hochladen und den Link von dort versenden. Das Vorgehen wäre wie folgt:

  1. Lade die Excel-Datei in deinen Cloud-Speicher hoch.
  2. Erstelle einen Freigabelink.
  3. Füge den Link in Deine E-Mail ein.

So kannst Du sicherstellen, dass der Empfänger Zugriff auf die Datei hat.


Praktische Beispiele

  • Excel Liste als Link versenden: Nutze den oben genannten VBA-Code, um einen Link zu einer Excel-Liste zu erstellen, die Du versenden möchtest.
  • E-Mail in Excel verlinken: Wenn Du eine E-Mail-Adresse in einer Excel-Tabelle verlinken möchtest, kannst Du dies einfach durch die Verwendung der HYPERLINK-Funktion tun:
    =HYPERLINK("mailto:beispiel@example.com", "E-Mail senden")

Tipps für Profis

  • Link kopieren und versenden: Du kannst den Link einer Excel-Datei schnell kopieren, indem Du mit der rechten Maustaste auf die Datei klickst und "Link kopieren" auswählst.
  • Datei als Link versenden Outlook: Nutze die Funktion "Datei einfügen" in Outlook, um sicherzustellen, dass die richtige Datei verlinkt wird und nicht als Anhang gesendet wird.

FAQ: Häufige Fragen

1. Wie kann ich einen Link versenden?
Du kannst einen Link versenden, indem Du ihn in Deine E-Mail einfügst, entweder als Hyperlink oder als Textlink.

2. Wie verschicke ich eine Excel Tabelle als E-Mail?
Du kannst die Excel Tabelle als Anhang senden oder, wie oben beschrieben, einen Link zu der Datei erstellen und diesen in die E-Mail einfügen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige