Dynamischer Dateianhang // Abstimmungsschaltfläche
13.07.2018 16:06:15
Yanek
ich habe zwei Dinge, die ich gerne in den folgenden Code einbauen möchte:
Sub Schaltfläche_Klicken()
On Error GoTo ErrHandler
' SET Outlook APPLICATION OBJECT.
Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")
' CREATE EMAIL OBJECT.
Dim objEmail As Object
Set objEmail = objOutlook.CreateItem(olMailItem)
With objEmail
.to = Sheets("XXX_v1").Range("A36").Text
.Subject = "YYY von " & Sheets("XXX_v1").Range("B4").Text & " " &
Sheets("XXX_v1").Range("A4").Text & _
" | YYY vom " & Sheets("XXX_v1").Range("A9").Text & " bis
einschließlich " & Sheets("XXX_v1").Range("B9").Text & _
" | Anzahl der YYY: " & Sheets("XXX_v1").Range("C9").Text
.body = "Lieber " & Sheets("XXX_v1").Range("C25").Text & "," & Chr(13) & Chr(13) & _
"anbei ..." & Chr(13) & Chr(13) & _
"Über ..." & Chr(13) & Chr(13) & _
"Liebe ..." & Chr(13) & Chr(13) & _
Sheets("XXX_v1").Range("B4").Text
'.Send
.Attachments.Add ("C:\Benutzerdaten\XXX.XXX\Eigene Dateien\XXX.xlsm")
.VotingOptions = "Genehmigt;Abgelehnt"
.display
End With
' CLEAR.
Set objEmail = Nothing
Set objOutlook = Nothing
ErrHandler:
End Sub
1. Als erstes würde ich gerne den Dateipfad des Anhangs dynamisch gestalten. Das Problem ist, dass die Personen, die Datei benutzen sollen, diese zukünftig aus einem Sharepoint runterladen und die Datei an einem beliebigen Ort abspeichern werden. Da die Datei nach Bearbeitung in Excel über Outlook versendet werden soll, inklusive der Datei, müsste man ja jedesmal den Dateipfad anpassen. Oder gibt es eine Alternative?
2. "Genehmigt" der Empfänger zukünftig die Datei durch die Abstimmungsschaltfläche soll die Datei (inkl. Inhalt und Anhang) wieder an den Versender zurückgesendet werden und auch an eine festgelegte, weitere Person im CC. Wird die Datei "abgelehnt", soll die Datei (inkl. Inhalt und Anhang) nur an den Versender zurückgehen.
Vielen Dank für eure Hilfe
Yanek