Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Outlook Application wird nicht gefunden

Frage Entwicklung VB for Applications

Mitglied: PL-q

PL-q (Level 1) - Jetzt verbinden

10.11.2007, aktualisiert 13.11.2007, 11447 Aufrufe, 2 Kommentare

Hallo,
Ich versuche seit Tagen einen VBScript zum laufen zu bringen.
Leider kommt die ganzen Zeit eine Fehlermeldung, das die Outlook Application nicht gefunden wurde.

Hier der Code :
01.
Dim out  
02.
Dim mail 
03.
Set out = CreateObject("Outlook.Application") 
04.
Set mail = out.CreateItem(0) 
05.
mail.To = "email@hotmail.de" 
06.
mail.Subject = "Test" 
07.
mail.Body = "Hallo" 
08.
mail.Send
Ich hoffe ihr könnt mir helfen, ich hab da auch meinen antivirus norton internet securiety im verdacht, das er damit zu tun hat.
Mitglied: RDiller
13.11.2007 um 17:42 Uhr
Hi,

ich habe mal die folgende Klasse (für Access) geschrieben um Mails via Outlook zu versenden.
Aber ich denke das Funktioniert auch so.
Was mir aufgefallen ist, dass Du erstens die Variablen nicht ordentlich deklariert hast und mail wahrscheinlich falsch Setzt hast
Ich denke es müsste so aussehen:

Dim out As Outlook.Application
Dim mail As Out.MailItem
Set out = CreateObject("Outlook.Application")
Set mail = out.CreateItem(olMailItem)

Es fehlt auch die Deklaration des Empfängers
Dim objOutRecip As Outlook.Recipient
Set objOutRecip = .Recipients.Add("email@hotmail.de")
objOutlookRecip.type = olTo

........

Kopier einfach den Code unten und teste

'Als erstes musst Du eine Neue Klasse, i.e. clsSendMail mit dem folgenden Code erstellen
'Geht auch ohne Klasse, als Funktion. Das mit der Klasse flunzt aber besser


Option Compare Database

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment



Public Sub Init()
Set objOutlook = CreateObject("Outlook.Application")
DoEvents
End Sub

Public Sub End_Mail()
Set objOutlook = Nothing
End Sub

Public Sub Add_Mail(Mail_To, Mail_CC,Mail_BCC,AttachmentPath, Subject, ByVal Mail_Msg As String)
' Das Mail Objekt erstellen.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)


With objOutlookMsg
'Den Empfänger, TO, hinzufügen.
Set objOutlookRecip = .Recipients.Add(Mail_To)
objOutlookRecip.type = olTo

'den CC hinzufügen
If Mail_CC <> "" Then
Set objOutlookRecip = .Recipients.Add(Mail_CC)
objOutlookRecip.type = olCC
End If

'Den BCC hinzufügen
If Mail_BCC <> "" Then
Set objOutlookRecip = .Recipients.Add(Mail_BCC)
objOutlookRecip.Type = olBCC
End If
' Das Subject und die "importance" erstellen.
.Subject = Subject
.Body = Mail_Msg
.Importance = olImportanceHigh

' Wenn benötigt, Attachments.
If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(AttachmentPath)
End If

' Die Empfänger über Outlook auflösen.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
If Not objOutlookRecip.Resolve Then
objOutlookMsg.Display
End If
Next

.Send 'Und jetzt senden
DoEvents
End With

Set objOutlookMsg = Nothing
DoEvents

End Sub

' ---------------------------------------------------------
'Nun kannst Du diese Klasse von Überall heraus mit diesem Code aufrufen

Dim Mail As New clsSendMail 'Hier wird Mail als neues KlasseObjekt von Sendmail definiert

'Der AttachmentPath ist die location der zu attachenden Datei, i.e. c:\..\...\attachment.doc

Mail.Init
Mail.Add_Mail Mail_To, , Mail_CC,Mail_BCC,AttachmentPath, Subject, Mail_Msg
Bitte warten ..
Mitglied: pacobay
13.11.2007 um 23:58 Uhr
@RDiller interessanter Ansatz werde ich mal für mich testen

@PL-q,

nicht böse sein aber
wenn mich Kunden anrufen und mitteilen daß z.B. die Druckfunktion nicht mehr funktioniert,
dann frage ich auch zuerst ob denn der Drucker an ist.

In diesem Sinne die erste Frage die sich mir aufdrängt ist hast Du überhaupt ein lauffähiges Outlook auf deinem Rechner? Oder womöglich nur Outlook Express??

Aber eigentlich gehe ich davon aus, dass da alles ok ist. Wie auch immer mit folgendem Testscript kannst du es einfach der Fehlerursache näherkommen.

Sofern du kein Excel hast dann natürlich entsprechende Zeilen auskommentieren
bzw auf z.B word umschreiben

Habe dieses Script bei mir (auf XPP SP2 allerdings mit neuem VBS 5.7 für XP)
getestet und läuft sauber durch.


CaseA
Sollte beides laufen bzw zumindest Outlook laufen dann ist es kein Objektproblem sondern nur eine verwirrende weil unzutreffende Fehlermeldung.
D.h der Fehler liegt woanders. vgl zum Beispiel die Anmerkungen von RDiller bzgl "dass Du erstens die Variablen ..."

CaseB: Sollte nur Excel aber nicht Outlook laufen dann liegt es wohl an deinem Outlook

CASE C
Sollte es gar nicht nicht laufen, dann mal deinen Norten kaltstellen und nochmal probieren

Sonst fällt mir zur Zeit nur noch ein: Update auf 5.7
Aber es gibt keinen bedeutenden mir bekannten Grund von 5.6 auf 5.7 upzudaten
(denn keine neuen Funktionalitäten aber einige BugFixes)
Als Ursache aber unwahrscheinlich doch trotzdem eine mögliche Begründung

bei case B eventuell auch lösungsansätze aus Case C sinnvoll

<Beispielcode>

' VB Script Document
option explicit

Function TestbyGetVersion

Dim objOapp,objEapp,GetVersion

Set objEapp = CreateObject("Excel.Application")
GetVersion = objEapp.Version
Wscript.echo GetVersion

Set objOapp = CreateObject("outlook.Application")
GetVersion = objOapp.Version
Wscript.echo GetVersion

End Function

TestbyGetVersion
</Beispielcode>

Auf jeden Fall wünsche ich Dir Viel Erfolg
pacobay
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Zertifikat wird von Outlook nicht im Zertifikatspeicher gefunden
Frage von GrEEnbYteOutlook & Mail7 Kommentare

Hallo Szenario: Outlook 2016 auf Windows 10 home und Mail Zugang auf Exchange 2007 (selbst signiertes Zertifikat) Ich versuche ...

Windows 7
C:ProgramData-Application Data-Application Data-Application Data-Application Data-Application Data
Frage von crashi09Windows 74 Kommentare

Hallo, habe folgendes Problem an einem Win 7 Pro 32Bit Rechner wie oben zusehen wird dieser Ordner immer wieder ...

Sicherheit
Application Whitelisting - Umgang mit Systemdateien
Tipp von DerWoWussteSicherheit2 Kommentare

Es begab sich Ende letzter Woche, dass einem Sicherheitsspezi auffiel, dass eine Windowssystemkomponente (c:\windows\system32\regsvr32.exe) ihm bislang unbekannte Fähigkeiten hat: ...

Windows Server
EventLog-Application ErrorCode 3221225864
gelöst Frage von rocco61Windows Server3 Kommentare

Hallo zusammen, mich macht eben der 2008 Server fuchtig. Komme heute , sehe im Eventlog EventLog-Application ErrorCode 3221225864 das ...

Neue Wissensbeiträge
Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 2 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 3 TagenWebbrowser7 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Sicherheit

Teamviewer Sessions können gekapert werden - Update tw. verfügbar

Information von sabines vor 3 TagenSicherheit6 Kommentare

In bestimmten Konstellationen können Teamviewer Sessions gekapert werden, wahrscheinlich aber ein recht unwahrscheinliches Szenario. Da der Teamviewer gerne für ...

Digitiales Fernsehen

Apple TV: Amazon Prime App ist verfügbar

Information von Frank vor 4 TagenDigitiales Fernsehen4 Kommentare

Die Amazon Prime Video App kann ab sofort auf einem Apple TV ab der 3 Generation installiert werden. Einfach ...

Heiß diskutierte Inhalte
Vmware
Installation Windows 10 VMware
Frage von Ghost108Vmware17 Kommentare

Hallo zusammen, versuche gerade mit Hilfe des vshpere clients eine virtuelle Windows 10 maschine aufzusetzen. 1. virtuelle Maschine erstellt ...

Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server14 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Windows Server
Server 2012 über Eingabeaufforderung devmgmt.msc geht nicht
gelöst Frage von achim222Windows Server9 Kommentare

Hallo, ich habe hier einen Server 2012 der im Reparaturmodus startet. Es liegt an einem falschen VirtIO Treiber für ...