Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook öffnen Datei einfügen,nicht versenden

Outlook öffnen Datei einfügen,nicht versenden
29.01.2015 08:06:05
Heinz
Guten morgen im Forum
Im unteren Code wird eine Datei in PDF mittels Outlook versendet.
Funktioniert auch prima.
Nur wird die eingefügte Datei sofort versendet.
Ich möchte aber selber auf "senden" im Outlook klicken.
Könnte mir dazu bitte jemand weiterhelfen?
gruß, Heinz
Sub PDF_an_eMail()
Dim app   As Object
Dim file  As String
Dim isNew As Boolean
file = "Gesperrte Ware,  " & Format(Range("B1").Value, "ddd. dd. mmm yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
Status = Shell("outlook.exe", 1) 'öffnet Outlook
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = Sheets("Artikeln").Range("Q2").Value
.CC = Sheets("Artikeln").Range("Q3")
.BCC = ""
.Subject = file
.Body = "Hallo," & vbCr _
& vbCr _
& "Gesperrte Ware,  " & Format(Range("B1").Value, "dddd dd mmmm yyyy") & vbCr _
& vbCr _
& "M.f.G"
.Attachments.Add Environ("TEMP") & "\" & file
'.Send
End With
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Outlook öffnen Datei einfügen,nicht versenden
29.01.2015 08:46:31
Stef@n
Hi
Statt
.send
.display
Gruss
Stef@n

Danke Luschi
29.01.2015 09:47:56
Heinz
Hallo Luschi
Hätte auch selbst gesucht im Forum,habe es wohl überlesen.
Recht herzlichen Dank.
Gruß,Heinz

Danke Stef@n
29.01.2015 09:46:17
Heinz
Hallo Stefan
Besten Dank,funktioniert wie gewollt.
Darauf hätte ich eigentlich auch selber draufkommen müssen.
Danke & grüsse
Heinz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige