• 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.

Sla een stuk over

Status
Niet open voor verdere reacties.
B

Bertus78

Gebruiker
Lid geworden
17 aug 2017
Berichten
209
Help help help.

Wie kan mij helpen.

Ik wil een mail sturen vanuit excel.
Dat is gelukt, echter als Outlook niet draait op de achtergrond krijg ik een foutmelding.
Wat kan ik toevoegen dat hij kijkt of Outlook draait, en zo niet dat hij die alsnog opstart (liefst op de achtergrond)
Ik heb nu dit.

Code: 
 Sheets("storing melden").Select
    With CreateObject("Outlook.Application").CreateItem(0)
       .To = "mail adres"
       .Subject = "Storing koffieautomaat geregistreerd"
       .body = "Beste " & Range("b13") & "," & vbLf & vbLf & "Uw storing aan automaatnummer " & Range("b5") & " is bij ons genoteerd als storingsnummer " & Range("G17") & "." & vbLf & "" & vbLf & "Type      : " & Range("b6") & "" & vbLf & "Gebouw : " & Range("b7") & "" & vbLf & "Adres     : " & Range("b8") & "" & vbLf & "Locatie   : " & Range("b9") & "" & vbLf & "Storing   : " & Range("a16") & "" & vbLf & "" & vbLf & "Wij hebben uw storing uitgezet." & vbLf & "Wij houden u op de hoogte van het verdere verloop."
          .send
    End With
 
Laatst bewerkt:
Doe het eens zo. Dat maakt ook je code een stuk leesbaarder wat betreft de bodytekst:
Code: 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim BodyText As String
    
    With Sheets("storing melden")
    BodyText = "Beste " & .Range("B13") & "," & vbLf & vbLf & _
                "Uw storing aan automaatnummer " & .Range("B5") & _
                " is bij ons genoteerd als storingsnummer " & _
                .Range("G17") & "." & vbLf & "" & vbLf & _
                "Type      : " & .Range("B6") & "" & vbLf & _
                "Gebouw : " & .Range("B7") & "" & vbLf & _
                "Adres     : " & .Range("B8") & "" & vbLf & _
                "Locatie   : " & .Range("B9") & "" & vbLf & _
                "Storing   : " & .Range("B16") & "" & vbLf & _
                "vbLf & "Wij hebben uw storing uitgezet." & vbLf & _
                "Wij houden u op de hoogte van het verdere verloop."
    End With
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
       .To = "b.de.winter@leiden.nl"
       .Subject = "Storing koffieautomaat geregistreerd"
       .Body = BodyText
       .Send
    End With
 
Laatst bewerkt:
Perfect, bedankt.
Ziet er beter uit.

Echter start hij nog niet vanzelf Outlook op.
Als die uitstaat dan loopt hij vast op .send
is hier wat op te doen?
 
Dat werkt hier prima.
Waarom dat dan bij jou niet zo is zou ik zo niet weten.
 
Misschien is het de instelling van het bedrijf.
Ik zet er wel een pop up voor dat die op de achtergrond aan moet.

Bedankt.... ben er erg blij mee !!!!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan