21.05.2017, 14:49
(Dieser Beitrag wurde zuletzt bearbeitet: 21.05.2017, 14:49 von Brennpunkt.)
Hallo zusammen,
ich verzweifel gerade ein wenig.
Und zwar habe ich ein Makro mit Steuerelement erstellt.
Dieses besagt, wie unten zu sehen, dass das ein bestimmtes Tabellenblatt
als PDF im Zielordner gespeichert wird. Als Name werden bezieht sich das Makro auf
diverse Zellen.
So weit, so gut.
Jetzt möchte ich aber dem Makro noch zuweisen, dass dieses nach dem speichern,
automatisch eine Mail mit Thunderbird öffnet und das PDF anhängt, bzw. den
PDF Namen als Betreff hinterlegt.
Die entsprechende Mail-Adresse befindet sich in Tabelle1/Zelle B1
Ich weiss nicht, ob möglich, wenn ja, wäre es toll, wenn mir jemand behilflich ist.
Vielen, vielen Dank
__________________________________________________________________________________________
Sub Auftrag()
'
' Auftrag Makro
'
' Tastenkombination: Strg+u
'
ChDir "Z:\Disposition\Unternehmerauftrag"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\Disposition\Unternehmerauftrag\" & Range("n10") & Range("n11") & Range("n9") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
___________________________________________________________________________________________
ich verzweifel gerade ein wenig.
Und zwar habe ich ein Makro mit Steuerelement erstellt.
Dieses besagt, wie unten zu sehen, dass das ein bestimmtes Tabellenblatt
als PDF im Zielordner gespeichert wird. Als Name werden bezieht sich das Makro auf
diverse Zellen.
So weit, so gut.
Jetzt möchte ich aber dem Makro noch zuweisen, dass dieses nach dem speichern,
automatisch eine Mail mit Thunderbird öffnet und das PDF anhängt, bzw. den
PDF Namen als Betreff hinterlegt.
Die entsprechende Mail-Adresse befindet sich in Tabelle1/Zelle B1
Ich weiss nicht, ob möglich, wenn ja, wäre es toll, wenn mir jemand behilflich ist.
Vielen, vielen Dank
__________________________________________________________________________________________
Sub Auftrag()
'
' Auftrag Makro
'
' Tastenkombination: Strg+u
'
ChDir "Z:\Disposition\Unternehmerauftrag"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Z:\Disposition\Unternehmerauftrag\" & Range("n10") & Range("n11") & Range("n9") & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
___________________________________________________________________________________________