Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 08:39:33
Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mail an Empfänger mit Link der soeben gespeicherten Datei

Mail an Empfänger mit Link der soeben gespeicherten Datei
09.01.2024 20:12:15
Kai
Guten Abend,

ich habe ein Makro welches die bearbeitete Datei speichert und über Outlook die Datei anhängt und versendet.

Ich möchte aber lieber, das im Mailtext ein Link zu dieser Datei gesendet wird über den man die Datei direkt öffnet.
Somit muss ich nicht immer die Datei mitsenden.

Ich habe schon einiges gelesen aber irgendwie will es nicht klappen.
Mit diesem Code klappt das versenden der Datei ganz gut.
Wo muss ich welchen Schnippsel einbauen, damit nur der clickbare Link zu der in Zeile eins gespeicherten Datei generiert wird. 

ActiveWorkbook.SaveAs "G:\Ordner\" & "checkliste_" & "_" & Range("B5").Value & ".xls"

Dim outl, Mail As Object

  Set outl = CreateObject("Outlook.Application")

  Set Mail = outl.CreateItem(0)

  Mail.Subject = "Checkliste" & " zum Thema " & Range("B5").Value

  Mail.To = "Test@test.de"

  Mail.Importance = 0

  Mail.Body = "Hallo zusammen!" & vbCrLf & vbCrLf & _

  "Anbei eine Checkliste." & vbCrLf & vbCrLf & _

  "Mit freundlichen Grüssen" & vbCrLf & vbCrLf

  Mail.Attachments.Add ThisWorkbook.FullName

  Mail.Display


Vielen Dank

LG Kai

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mail an Empfänger mit Link der soeben gespeicherten Datei
10.01.2024 06:59:27
ralf_b
hier der Link zum nachlesen was das Mailitem so für Möglichkeiten bietet.
https://learn.microsoft.com/de-de/office/vba/api/outlook.mailitem

kurzgefasst: nutze den HTMLBody, um einen aktiven Link in die Mail hineinzubekommen. Reinen Text kann man nicht anklicken. Aber das weist du sicher selbst.
erstelle ganz normal eine Mail im Outlook mit dem Link und schau dir dann den Quelltext an. Na diesem Muster baust du dir dann deinen htmlbody im VBA.
AW: Mail an Empfänger mit Link der soeben gespeicherten Datei
10.01.2024 11:47:35
Kai
Hallo,

das habe ich jetzt gebastelt bzw. zusammengetragen. Sorry, ich musste ein Bild senden, wenn ich den Code hier rein kopiere escheint er nicht korrekt.


Userbild


Es funktioniert auch fast. Er öffnet eine Mail mit Link. Wenn ich auf den Link drücke öffnet er aber nur den Ordner Checklisten.
Was muss ich jetzt ändern, um die in Zeile 1 gespeicherte Datei zu verlinken. Damit direkt die Datei geöffnet wird.
Der Zusatz ThisWorkbook.Fullname scheint falsch bzw. nicht richtig intergriert zu sein.

Danke.
Anzeige
bzgl. "Code wird nicht korrekt angezeigt"...
10.01.2024 11:57:08
Pierre
Hallo Kai,

nutze die "Code" Tags, die über dem Beitragsfenster zu sehen sind.

Zwischen 'pre' und '/pre' kommt dein gesamter Code.

Gruß Pierre

AW: bzgl. "Code wird nicht korrekt angezeigt"...
10.01.2024 15:22:55
volti
Hallo zusammen, zur allgemeinen Information:

Die Zeichen > und < werden in den Foren zur HTML-Formatierung verwendet, auch innerhalb der pre-Tags.
Sie formatieren den Text und sind als Steuerzeichen deshalb nicht mehr sichtbar.

Um sie HTML-code anzuzeigen müssen diese Zeichen maskiert werden und zwar mit < = & lt; und > & gt; (die Leerzeichen dazwischen weg)

Nachfolgender Code (natürlich mit meinem Account und meiner Testdatei) funktioniert bei mir. Stelle sicher, dass alle Mailempfänger auch Zugriff auf "G:" haben. 

Code:


Sub Mailsenden()
  Dim sDatei As String, sText As String
 
  sDatei = "G:\Ordner\" & "checkliste_" & "_" & Range("B5").Value & ".xls"
  
  sText = "Hallo zusammen!¶¶" _
        & "Anbei eine Checkliste.¶¶" _
        & "Zum Öffnen klicken Sie bitte <a href='" & sDatei & "'>hier</a>!¶¶"
  
  With CreateObject("Outlook.Application").CreateItem(0)
     .GetInspector.Display
     .Subject = "Checkliste" & " zum Thema " & Range("B5").Value
     .To = "Test@test.de"
     .Importance = 0
     .htmlbody = Replace(sText, "", "<br>") & .htmlbody
  End With
End Sub

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz
Anzeige
AW: bzgl. "Code wird nicht korrekt angezeigt"...
10.01.2024 16:48:43
Kai
Super, vielen Dank für den Tipp.

Ich werde es später testen.

LG

Kai

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige