Thema Datum  Von Nutzer Rating
Antwort
20.09.2016 16:29:31 Thomas
NotSolved
21.09.2016 12:00:37 Gast18887
NotSolved
Rot PDF erstellen speichern und senden
21.09.2016 20:44:46 Gast88747
NotSolved
25.09.2016 09:29:08 Gast60100
NotSolved

Ansicht des Beitrags:
Von:
Gast88747
Datum:
21.09.2016 20:44:46
Views:
805
Rating: Antwort:
  Ja
Thema:
PDF erstellen speichern und senden

Hallo Thomas,

einmal einfach&geschmacklos ;)

Deinen E-Mail Client ??? -  musste selber einsetzen - hier allgemein zu meinem Test eine CDO-Variante

LG

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
Option Explicit
 
Sub Versenden()
Dim strPath As String
Dim strFile As String
Dim strFull As String
 
Dim strBetr As String
Dim strAnhg As String
Dim StrEmpf As String
Dim strText As String
 
On Error GoTo errh
 
   strPath = Sheets("Tabelle4").Range("K4").Value
   If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    
   strFile = Sheets("Tabelle4").Range("K14").Value
   If Right(strFile, 4) <> ".pdf" Then strFile = strFile & ".pdf"
    
   strFull = strPath & strFile
       
   'erzeugen
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Copy
   Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
   ActiveSheet.ExportAsFixedFormat _
   Type:=xlTypePDF, _
   Filename:=strFull, _
   Quality:=xlQualityStandard, IncludeDocProperties:=True, _
   IgnorePrintAreas:=False, OpenAfterPublish:=False
   ActiveWindow.Close False
      
   'versenden (neutral)
   'ACHTUNG, dazu ist die Serveradresse deines Providers erforderlich
   'hier in K16 eingetragen
   'ACHTUNG, dazu ist eine Absenderadresse erforderlich
   'hier in K18 eingetragen
   strBetr = Sheets("Tabelle4").Range("K12").Value
   strAnhg = strFull
   StrEmpf = Sheets("Tabelle4").Range("K10").Value
   strText = ""
    
   CDO_Mail_Versand strBetr, strAnhg, StrEmpf, strText, _
   Sheets("Tabelle4").Range("K16").Value, _
   Sheets("Tabelle4").Range("K18").Value
    
On Error GoTo 0
errh:
If Err.Number = 0 Then MsgBox "Erfolgreich!"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
 
Private Sub CDO_Mail_Versand(ByVal BETR As String, _
   ByVal ANH As String, ByVal EMPF As String, ByVal MTEXT As String, _
   ByVal ADDI As String, SENDER As String)
    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
 
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
 
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
      .Update
    End With
 
    strbody = MTEXT
 
    With iMsg
        Set .Configuration = iConf
        .To = EMPF
        .CC = ""
        .BCC = ""
        .From = SENDER
        .Subject = BETR
        .TextBody = strbody
        .AddAttachment ANH
        .Send
    End With
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.09.2016 16:29:31 Thomas
NotSolved
21.09.2016 12:00:37 Gast18887
NotSolved
Rot PDF erstellen speichern und senden
21.09.2016 20:44:46 Gast88747
NotSolved
25.09.2016 09:29:08 Gast60100
NotSolved