Email senden Outlook prob

booorgy

Grünschnabel
hallo,

kann mir jemand helfen, es funktioniert irgendwie nicht ein email via outlook zu senden.
Ab Set olOutlookApp = CreateObject("Outlook.Application") springt das prog. in die fehlerausgabe.

Code:
Public Sub SendeeMail(eMail As String, Optional Subject As String, Optional Body As String, Optional Attachment As String)
On Error GoTo withoutlook
    ' Generate and send E-mail
    Set olOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
        ' Outlook not running - start it
        Set olOutlookApp = CreateObject("Outlook.Application")
        blnNewOutlookApp = True
    End If
    '   Create E-mail
    Set olEMail = olOutlookApp.CreateItem(olMailItem)
    With olEMail
        .To = "bla@bla.de"
        .Subject = "TESTMAIL"
        .Body = "Hier is de Body"
        '.Attachments.Add ActiveDocument.FullName, olByValue, , "Inspection Request"
        '.Attachments.Add ("c:\test.doc")
        .Send
    End With
withoutlook:
    MsgBox "Mails können nur verschickt werden, nachdem Outlook gestartet wurde", vbCritical, "Outlook Fehler"

thx

gude

mk
 
Hallo booorgy,

wenn du die Fehlernummer auswerten willst kannst du vorher nicht sagen

On Error GoTo withoutlook

sondern musst On Error Resume Next benutzen und später mit der Fehlerbehandlung
fortfahren, denn es wird ja wenn Outlook nicht instanziert ist eine Ausnahme geworfen und dein Programm macht nicht weiter, bzw. springt sofort ans Ende.
Der Rest passt , habs getestet.

Die Deklarationen haben zwar in dem Codeschnipsel auch gefehlt aber die wirst du bei dir bestimmt haben.

Jens
 
könntest du es trotzdem nochmal erklären/zeigen
Ich habe noch relativ wenig Ahnung mit VB und benötige aber
-eine Windowsform, welche an einen im code
-festgelegten Recipien mit
-festem Subject
-einige Textfelder im Body
der Mail abbildet.

Ich hatte auch schon etwas sogut wie fertig leider hat er mir einen security-error gebracht,
mit dem ich etwas überfordert war.

Wie hast du es jetzt umgesetzt?
kann man das in VB.Net nachbauen?
hat jemand ideen?
 
Zurück