PDF und senden
27.02.2020 17:58:57
Tarkan
ich habe folgendes Makro, was gut funktioniert.
Ich kann hier nur auf meinem eigenen PC die PDF Datei per Email versenden.
Es liegt an folgendem denke ich:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Tarkan\Desktop\Dienstplan MA Einzeln - " & fName & ".pdf"
Ich teile diese Datei aber mit jemand anderem, der auch von seinem PC aus eine PDF erzeugen und versenden muss.
wie kann ich also das Speicherort so bestimmen, dass das versenden von jedem PC aus funktioniert.?
Sub PDFundSenden()
ChDir "C:\Users\Tarkan\Desktop"
Dim fName As String
With ActiveSheet
fName = .Range("D40")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Tarkan\Desktop\Dienstplan MA Einzeln - " & fName & ".pdf"
Dim OutLookApp As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object
Dim Signature As String
Set OutLookApp = CreateObject("Outlook.application")
Set OutlookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments
With OutlookMailItem
.SentOnBehalfOfName = "info@security-buelbuel.de" 'Absendeadresse
.To = Range("D39")
.CC = "backup@security-buelbuel.de"
.Subject = Range("D40")
.HTMLBody = "Sehr geehrte Damen und Herren," & "
" & "
" & "Sie erhalten im Anhang _
Ihren aktuellen Plan." & "
" & "Bitte bestätigen Sie den Erhalt umgehend und vernichten die _
_
bisherigen Versionen." & "
" & "Vielen Dank und viel Erfolg!" & "
" & "
" & "Für Rü _
ckfragen stehe ich Ihnen gerne zur Verfügung" & "
" & "" & "
" &
.Attachments.Add "C:\Users\Tarkan\Desktop\Dienstplan MA Einzeln - " & fName & ".pdf"
'.Send
.Display
End With
Kill "C:\Users\Tarkan\Desktop\Dienstplan MA Einzeln - " & fName & ".pdf"
Set OutLookApp = Nothing
Set OutlookMailItem = Nothing
End With
End Sub