ich habe folgendes Problem: Ich möchte aus diesem VBA- code einen Link anhängen und diesen aus VBA raus, versenden.
Hier angehängt habe ich den Code, den ich genneriert habe:
Sub Link_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Set OutApp = CreateObject("Outlook.Application")
Dim sBody As String 'Link wird als Mail gesendet
sBody = "\\Smuc2108\Motor\TA-2\TA-25\TA-254\Fehlerbeseitigung\00_Feldbeobachtung\ _
10_Status_aktuell\Auf_Absteiger_Schleicher"
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "ich@ich.de"
.Subject = "Testmeldung von Link " & Date & Time
.sBody = "\\Smuc2108\Motor\TA-2\TA-25\TA-254\Fehlerbeseitigung\00_Feldbeobachtung\ _
10_Status_aktuell\Auf_Absteiger_Schleicher"
.Body = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
.attachments.Add sBody
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
Mail.Send
End With
'Outlook schliessen
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub
Jetzt bekomme ich immer eine Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht" in der Zeile ".sBody = "\\Smuc2108\Motor\TA-2\TA-25\TA-254\Fehlerbeseitigung\00_Feldbeobachtung\10_Status_aktuell\Auf_Absteiger_Schleicher"Jetzt stellt sich bei mir die Frage, ob jemand eine geniale Idee hat wie ich den Code umstellen oder wie er richtig ist.
Vielen Dank im voraus für eure Hilfe.