Outlook verzend niet vanuit externe applicatie

Status
Niet open voor verdere reacties.
buick

buick

Terugkerende gebruiker
Lid geworden
6 sep 2001
Berichten
2.879
Hallo,

Ik loop tegen het volgende probleem aan met Outlook (2013):

Als er vanuit een externe applicatie een mail aangemaakt wordt, dan wordt deze wel in Outlook gestart en je ziet hem ook, alleen als je vervolgens op verzenden klikt wordt deze niet verzonden (Outlook sluit na klikken op "verzenden")

Vervolgens start ik Outlook zelf met de hand en dan staat daar de betreffende mail in postvak uit. Pas als ik vanuit Outlook nog een mail aanmaak en verstuur, wordt zowel de mail die ik dan net gemaakt heb als de mail die nog in postvak Uit staat verzonden. Het ligt dus niet aan de instellingen van de Server want normaal verzenden en ontvangen lukt wel.

Kan het zijn dat Outlook ergens een beveiligingsinstelling heeft die voorkomt dat een externe applicatie een mail direct kan verzenden?
 
gast0660 zei:
Daarmee weten we direct alles:cool:
Klik om te vergroten...

Daar zit het probleem ook niet. (is overigens een applicatie die een scan maakt en de scan als kleine .jpg verstuurt) De applicatie stuurt een mail naar Outlook, Outlook wordt geopend en bij de applicatie is de mail op dat moment verwerkt. Wat er dan nog open staat is Outlook met een scherm waarin de betreffende mail + .jpg bijlage staat.
Dus tot daar gaat alles goed. Alleen wordt de mail niet verzonden. Als je op verzenden klikt gooit Outlook hem wel gewoon naar postvak UIT maar laat hem daar verder staan.
Pas als je outlook opnieuw start en vanuit Outlook een mail stuurt dan wordt de mail gelijk meegenomen met de rest van het verzenden en komt hij ook gewoon aan.
 
Daar zit het probleem ook niet
Klik om te vergroten...
Klopt, maar daarmee ben ik geen stap verder, weet ik dus niets meer.

Hierbij een functie, in een gewone module.
Code: 
#Const LateBind = True
Const olMinimized As Long = 1
Const olMaximized As Long = 2
Const olFolderInbox As Long = 6
#If LateBind Then
Public Function OutlookApp( _
    Optional WindowState As Long = olMinimized, _
    Optional ReleaseIt As Boolean = False _
    ) As Object
    Static o As Object
#Else
Public Function OutlookApp( _
    Optional WindowState As Outlook.OlWindowState = olMinimized, _
    Optional ReleaseIt As Boolean _
) As Outlook.Application
    Static o As Outlook.Application
#End If
On Error GoTo ErrHandler
 Select Case True
        Case o Is Nothing, Len(o.Name) = 0
            Set o = GetObject(, "Outlook.Application")
            If o.Explorers.Count = 0 Then
InitOutlook:
                o.Session.GetDefaultFolder(olFolderInbox).Display
                o.ActiveExplorer.WindowState = WindowState
            End If
        Case ReleaseIt
            Set o = Nothing
    End Select
    Set OutlookApp = o
 ExitProc:
    Exit Function
ErrHandler:
    Select Case Err.Number
        Case -2147352567
            Set o = Nothing
        Case 429, 462
            Set o = GetOutlookApp()
            If o Is Nothing Then
                Err.Raise 429, "OutlookApp", "Outlook Application is niet geïnstalleerd  ."
            Else
                Resume InitOutlook
            End If
        Case Else
            MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Onverwachte fout"
    End Select
    Resume ExitProc
    Resume
End Function
#If LateBind Then
Private Function GetOutlookApp() As Object
#Else
Private Function GetOutlookApp() As Outlook.Application
#End If
On Error GoTo ErrHandler
    Set GetOutlookApp = CreateObject("Outlook.Application")
ExitProc:
    Exit Function
ErrHandler:
    Select Case Err.Number
        Case Else
            Set GetOutlookApp = Nothing
    End Select
    Resume ExitProc
    Resume
End Function
Sub dotchie_outlook_open()
    Dim OutApp  As Object
    Set OutApp = OutlookApp()
End Sub
En dan kan je deze in uw volledig geheim bestand:( aanroepen.
Call dotchie_outlook_open
Als je daarmee een stap verder bent weet ik niet gezien uw zeepbellen uitleg.
Maar als je deze gebruikt in excel dan wordt de mail direct verstuurd.
Suc6
 
Heeft met zeepbellenuitleg net zo weinig te maken als iemand vragen welke benzine hij tankt als hij uitleg wil over een band plakken . :D:D:D Er is geen sourcecode of wat ook.

Misschien was het niet helemaal duidelijk maar het is een extern programma; niet een zelf geschreven programma of Excel script. Dus er valt verder ook weinig over te zeggen. Aansluiten via USB, scan maken, vervolgens wordt Outlook aangeroepen en geopend en wordt de scan als bijlage in de mail gezet, samen met het vooraf ingestelde emailadres en hoef je normaal alleen op verzenden te klikken. De applicatie geeft aan dat de mail weg is en daar is hij ook niet langer meer te vinden dus het stuk tot aan Outlook gaat goed. Vandaar dat ik het probleem ook eerder zoek in een (misschien verstopte) instelling die voorkomt dat een extern programma een mail kan sturen of die de mails op een of andere manier in de wacht zet.
Als ik 10 scans maak staan er na een tijd 10 mails in postvak uit die als ik een "normale" mail stuur ook ineens allemaal verwerkt worden.
 
Tja, dan weet ik ook niet, hopelijk heeft iemand anders een beter idee.
 
een scanner?
bijbehorende software van de scanner wel goed ingesteld.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan