Outlook im Makro öffnen + Anmeldung Server
04.10.2002 18:23:39
Guenter
Ich mache folgendes:
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(6)
With Mail
.Subject = "text"
.Body = "text"
'.CC = "Irgendjemand@123.de"
End With
With Application.FileSearch
.NewSearch
.LookIn = "C:\Rechnungen\"
'.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For intzaehler = 1 To .FoundFiles.Count
Mail.Attachments.Add .FoundFiles(intzaehler)
Next intzaehler
End With
ActiveWorkbook.SendMail Recipients:="Irgendjemand@123.de"
Ich muß mich aber vorher mit Benutzer und Passwort am Exchange
Server anmelden. Wie geht das im Excel-VBA-Script???
Danke für die Hilfe
Anzeige