• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Email fout

Status
Niet open voor verdere reacties.

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Wie kan mij even helpen,

Bij ons is outlook beveiligd (hij mag niet geopend worden door een andere programma).
daarom wil ik een fout melding erin brengen, maar het lukt mij niet echt.
Wie kan mij hierbij even helpen?

Code:
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
       .To = "MAIL ADRES"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText
       
        If Not IsError(.Send) Then .Send
         Else: msbox "ERROR, Start outlook op, en probeer het opnieuw.": End Sub
         
    End With
 
Wat is precies het probleem met de huidige code? Ik neem aan een foutmelding?
 
En als je hem herschrijft naar:
Code:
If Not IsError(.Send) Then
    .Send
Else
    msbox "ERROR, Start outlook op, en probeer het opnieuw."
    End Sub
end if
 
Dan krijg ik het volgende foutmelding:

Compileerfout
Sub of function is niet gedefinieerd.

Hier loop ik dus steeds tegen aan.
 
Maak van end sub eens exit sub
Na end sub komt normaal geen code meer.
 
Laatst bewerkt:
Zo misschien?
Code:
Sub Bericht()
Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
       .To = "MAIL ADRES"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText
       
        If Not IsError(.Send) Then
          .Send
         Else
          .msbox "ERROR, Start outlook op, en probeer het opnieuw."
          Exit Sub
        End If
    End With
End Sub
 
Niet getest
Code:
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
       .To = "MAIL ADRES"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText

        On Error Resume Next
        .Send
        If Err.Number > 0 Then
            msbox "ERROR, Start outlook op, en probeer het opnieuw."
            Exit Sub
        End If
        On Error Goto 0
         
    End With
 
Alle twee geprobeerd bij #8 word de mail wel verstuurd maar krijg ik alsnog een foutmelding.
Bij #9 krijg ik weer de oude foutmelding.
 
Als je de code met F8 doorloopt, kun je misschien ontdekken wat er fout gaat.
Het is het proberen waard, denk ik.
 
Code:
 If Not IsError(.Send) Then
          .Send
         Else
         .msbox "ERROR, Start outlook op en probeer het opnieuw."
          Exit Sub
        End If
    End With

Bij de eerste zin "If Not IsError(.Send) Then"geeft hij een fout aan.
Maar na mijn idee is die wel goed want de mail wordt verstuurd.
Daarna komt de fout, maar dat geeft hij weer niet aan.
 
En de foutmelding is?

Die .msbox moet trouwens MsgBox zijn en zonder een punt er voor.
 
msbox veranderd in msgbox, tik fout.

Krijg nu het volgende melding.

Fout -2147221238(8004010a)
Tijdens uitvoering
Het item is verplaatst of verwijderd
 
Code:
On Error Resume Next
         Set OutlApp = GetObject(, "Outlook.Application")
     On Error GoTo 0
         If OutlApp Is Nothing Then
 
Laatst bewerkt:
Lukt nog niet.

Ik heb nu dit, maar loopt vast op mijn email adres (heb ik natuurlijk even weggelaten)


Code:
On Error Resume Next
         Set OutlApp = GetObject(, "Outlook.Application")
     On Error GoTo 0
         If OutlApp Is Nothing Then Set OutMail = OutApp.CreateItem(0)
    With OutMail
       .To = "mijn email adres"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText
       .Send
    End With
 
Probeer het zo maar eens.
Code:
On Error Resume Next
         Set OutlApp = GetObject(, "Outlook.Application")
     On Error GoTo 0
         If Not OutlApp Is Nothing Then
           Set OutlApp = CreateObject("Outlook.Application")
    With OutlApp.CreateItem(0)
       .To = "mijn emai adres"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText
        .Send
    End With
    Else
  MsgBox "ERROR, Start outlook op, en probeer het opnieuw.":
 End If
 
Bedankt voor je ractie, daar ben ik echt blij mee.
Maar helaas. Hij loopt vast op If Not OutlApp Is Nothing Then
 
Heb je gedeclareerd?, en hoe?
Code:
dim OutlApp [COLOR=#0000ff]as object[/COLOR]
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan