ich habe in einer Datei einen Hyperlink mit mailadresse erstellt.
nun soll automatisch dieselbe Datei , in der der Link ist , mit weggeschickt werden.
Geht das und wenn ja ,wie?
Danke
über einen Hyperlink habe ich auf die schnelle nichts, aber wenn du das über einen Commandbutton lösen kannst hier ein Weg:
Code eingefügt mit Syntaxhighlighter 1.16
Sub Excel_Workbook_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim AWS As String
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ThisWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@provider"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.attachments.Add AWS
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'Mail.Send
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Statt "Irgendwer@Irgendein Provider" kannst du auch auf die Zelle verweisen, in der dein Hyperlink jetzt steht.
Gruss Rainer