Thema Datum  Von Nutzer Rating
Antwort
20.02.2024 20:05:47 Röder
Solved
Blau VBA Mail versand ohne Funktion
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:
Gast14034
Datum:
20.02.2024 20:25:01
Views:
183
Rating: Antwort:
  Ja
Thema:
VBA Mail versand ohne Funktion

Also der Code läuft bei mir durch ohne Probleme:

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:="R:\Test.pdf", OpenAfterPublish:=False

'Mail erzeugen

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

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

With OutlookMailItem
.Display
.to = Range("S2").Value
.Subject = Range("S3").Value
myAttachments.Add "R:\Test.pdf"
.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
20.02.2024 20:05:47 Röder
Solved
Blau VBA Mail versand ohne Funktion
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