PDF Speichern

Public Sub KundenMail(sMailto As String, sAttachements As String) Dim Mailadresse As String, Betreff As String Dim olApp As Object Dim x Set olApp = CreateObject("Outlook.Application") Betreff = "Anbei die gewünschte(n) 'PDF' Datei(en) !" With olApp.CreateItem(0) .To = sMailto .Subject = Betreff ' ' .Subject = VerzNam If InStr(1, sAttachements, ";") > 0 Then For Each x In Split(sAttachements, ";") .Attachments.Add x Next Else .Attachments.Add sAttachements End If ' 1 habe festgestellt das hier mein Speichermakro rein könnte ? .Display ' .Send End With Set olApp = Nothing End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Abend,
anbei wo das Makro anfängt:


Public Sub Mail_NEU_per_Auftragsbestätigung()
Dim sVerz  As String
sVerz = sVerz & " " & Range("E24").Value & " " & Range("E25").Value
Call KundenMail(ActiveSheet.Range("D16").Value, createpdf("$B$2:$H$59", sVerz & "_Auftragsbestätigung"))
End Sub

Function createpdf(sBereich As String, sFile As String) As String
Dim sdruckbereich As String
sdruckbereich = ActiveSheet.PageSetup.PrintArea
ActiveSheet.PageSetup.PrintArea = sBereich
'----- neue Datei pdf ---------------------------
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
filename:=sFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
ActiveSheet.PageSetup.PrintArea = sdruckbereich
createpdf = sFile & ".pdf"
MsgBox createpdf
'----------------------------------------------------------------------------------------------------------------------------------
'Ich möchte gern, wenn der User Daniel ist, das die PDF ins Verzeichnis
C:\Möbel\Teile\#_Muster\
sonst: D:\Möbel\Teile\#_Muster\
End Function


Public Sub KundenMail(sMailto As String, sAttachements As String)
Dim Mailadresse  As String, Betreff As String
Dim olApp  As Object
Dim x
Set olApp = CreateObject("Outlook.Application")
Betreff = "Anbei die gewünschte(n) 'PDF' Datei(en) !"
With olApp.CreateItem(0)
.To = sMailto
.Subject = Betreff
'        ' .Subject = VerzNam
If InStr(1, sAttachements, ";") > 0 Then
For Each x In Split(sAttachements, ";")
.Attachments.Add x
Next
Else
.Attachments.Add sAttachements
End If
'  Application.DisplayAlerts = True
.Display
' .Send
End With
Set olApp = Nothing
End Sub

gr daniel

Public Sub Mail_NEU_per_Auftragsbestätigung() Dim sVerz, verz2 As String verz2 = "C:\_Werkstatt\#_Aufträge\##_Mail\" sVerz = Kunden_Ordneranlegen(Range("D11").Value) sVerz = verz2 & " " & Range("D11").Value & Range("E24").Value & " " & Range("E25").Value Call KundenMail(ActiveSheet.Range("D16").Value, createpdf("$B$2:$H$59", sVerz & "_Auftragsbestätigung")) End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread