Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.07.2025 16:49:43
16.07.2025 16:28:01
16.07.2025 15:14:00
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook nicht anzeigen, direkt versenden

Forumthread: Outlook nicht anzeigen, direkt versenden

Outlook nicht anzeigen, direkt versenden
13.10.2003 12:06:02
junny
Hai Leute,
folgender Code sendet ein Workbook, zeigt jedoch noch die Outlook Oberfläche und ich muss erst noch senden klicken. Was muss ich ändern wenn ich es direkt versenden will (Outlook erst gar nicht anzeigen)


Sub senden()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
Dim savepath As String
savepath = "c:\temp\" & ActiveSheet.Name & ".xls"
On Error Resume Next
Kill savepath
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs savepath
ActiveWorkbook.Close savechanges:=False
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
With Mail
.Subject = Sheets("Tabelle1").Cells(1, 1).Value
.Body = "Sehr geehrte Damen und Herren " & vbLf & _
"Bitte prüfen Sie die angehängten Rechnungen" & vbLf & _
"Viele Grüße " & vbLf & _
Application.UserName
.To = Sheets("Tabelle1").Cells(2, 2).Value
.CC = Sheets("Tabelle1").Cells(3, 2).Value
.Bcc = Sheets("Tabelle1").Cells(4, 2).Value
End With
With Application.FileSearch
.NewSearch
.LookIn = savepath
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
Mail.Attachments.Add savepath
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub


Freue mich auf Antwort, Gruss volker
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Outlook nicht anzeigen, direkt versenden
13.10.2003 12:38:10
Werner
Hallo volker,

lass mal das "Mail.Display" weg!

Dann sollte es gehn.

Gruss Werner
AW: Outlook nicht anzeigen, direkt versenden
13.10.2003 13:19:10
junny
Hallo Werner,
leider nicht, aber Dein Hinweis hat mich auf etwas gebracht: Ich habe Display mit send ausgetauscht, jetzt gehts.

Danke, Gruss volker
AW: Outlook nicht anzeigen, direkt versenden
13.10.2003 13:18:34
Martin
Hallo Volker,

anstelle des Mail.Display, Mail.Send.

Allerdings wird xl dir wahrscheinlich eine Meldung ausgeben, dass ein externes Programm gerade versucht, ein Mail zu versenden (oder so ähnlich). Du wirst auf eine 5 sek. Warteschleife gestellt und kannst erst dann reagieren. Sowas nennt man dann "Automatisieren mittels VBA" ;-).

Ich habe dieses Problem ebenfalls (XP) und meine Recherchen im www ergaben eigentlich alle, dass es sich hierbei um ein gewolltes Feature von MS handelt (Sicherheitsaspekt), der auch nicht mittels VBA umgangen werden kann. Es gibt allerdings Drittanbieter, die ein Software hierfür entwickel haben (rund 200 USD).

Gruss,
Martin
Anzeige
Danke Martin (auch für den zeitlichen Tipp)
13.10.2003 16:53:16
junny
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige