Herbers Excel-Forum - das Archiv
Outlook nicht anzeigen, direkt versenden
Betrifft: Outlook nicht anzeigen, direkt versenden
von: junny
Geschrieben am: 13.10.2003 12:06:02
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
Betrifft: AW: Outlook nicht anzeigen, direkt versenden
von: Werner
Geschrieben am: 13.10.2003 12:38:10
Hallo volker,
lass mal das "Mail.Display" weg!
Dann sollte es gehn.
Gruss Werner
Betrifft: AW: Outlook nicht anzeigen, direkt versenden
von: junny
Geschrieben am: 13.10.2003 13:19:10
Hallo Werner,
leider nicht, aber Dein Hinweis hat mich auf etwas gebracht: Ich habe Display mit send ausgetauscht, jetzt gehts.
Danke, Gruss volker
Betrifft: AW: Outlook nicht anzeigen, direkt versenden
von: Martin
Geschrieben am: 13.10.2003 13:18:34
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
Betrifft: Danke Martin (auch für den zeitlichen Tipp)
von: junny
Geschrieben am: 13.10.2003 16:53:16
o.T.