Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Mail versand ohne Funktion
20.02.2024 20:05:47 Röder
Solved
20.02.2024 20:25:01 Gast14034
NotSolved
20.02.2024 20:44:50 Gast83891
NotSolved
20.02.2024 20:51:38 Gast52742
NotSolved
20.02.2024 20:53:13 Gast43062
NotSolved
20.02.2024 20:58:00 Gast10212
NotSolved
20.02.2024 21:23:39 Gast199
NotSolved
20.02.2024 21:26:15 Gast93986
NotSolved

Ansicht des Beitrags:
Von:
Röder
Datum:
20.02.2024 20:05:47
Views:
289
Rating: Antwort:
 Nein
Thema:
VBA Mail versand ohne Funktion

Hallo in die Runde,

vielleicht kann mir ja jemand weiter helfen oder einen Tipp geben.

Die Excel Datei wird als PDF gespeichert und soll anschließend per Anhang mit Outlook versendet werden.

Leider läuft der Code nur bis zum Markierten Bereich: Set myAttachments = OutlookMailItem.Attachments

Das Dokument wird gespeichert und die PDF öffnet sich. Dann läut es auf einen Fehler .

Danke für Hilfe vorab.

 

Sub Test()

'Datum einfügen Time ist die Uhrzeit / now ist das Datum
Range("n6").Value = Time

'Benutzername einfügen
Range("N1").Value = Environ("Username")

'Als PDF Speichern

Dim DateiName As String
DateiName = Range("K3") & Range("K2") & ".pdf"
Range("A1:j57").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Tabelle1.Range("o3").Value & "\" & Tabelle1.Range("o4").Value & ".pdf", OpenAfterPublish:=True

'Mail erzeugen

Dim Outlook As Object
Dim OutlookMailItem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set myAttachments = OutlookMailItem.Attachments

With OutlookMailItem
.to = Range("S2")
.Subject = Range("S3")
myAttachments.Add DateiName
.Display
End With

Set OutlookApp = Nothing
Set OutlookMail = Nothing

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
Rot VBA Mail versand ohne Funktion
20.02.2024 20:05:47 Röder
Solved
20.02.2024 20:25:01 Gast14034
NotSolved
20.02.2024 20:44:50 Gast83891
NotSolved
20.02.2024 20:51:38 Gast52742
NotSolved
20.02.2024 20:53:13 Gast43062
NotSolved
20.02.2024 20:58:00 Gast10212
NotSolved
20.02.2024 21:23:39 Gast199
NotSolved
20.02.2024 21:26:15 Gast93986
NotSolved