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

Mail sturen vanuit excel

Status
Niet open voor verdere reacties.

elgeto

Nieuwe gebruiker
Lid geworden
20 jun 2018
Berichten
2
Hallo,

Ik gebruik al jaren onderstaande macro voor het versturen van mails vanuit excel.
Sinds ik een andere pc heb, lukt dit niet meer.
Loopt vast bij de 4e regel ( Set OutApp = CreateObject("Outlook.Application") )


Hoe kan ik dit oplossen?

Alvast bedankt



'versturen van mail


Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

strbody = "Beste," & vbNewLine & vbNewLine & _

"Alle aanpassingen zijn gedaan" & vbNewLine & _

"Met vriendelijke groeten," & vbNewLine & _


On Error Resume Next
With OutMail
.To = "De Doncker, Jan"

.CC = "Arijs, Veerle ;
.BCC = ""
.Subject = "Controle " & ActiveSheet.Cells(4, 12).Value
.Body = strbody
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

Application.ScreenUpdating = True

Range("P4").Select
Selection.ClearContents
Range("A1:C1").Select
 
Heb je in de VBA editor (Alt + F11) bij Extra -> Verwijzingen Microsoft Outlook xxx Object Library aangevinkt? (xxx is het versienummer)
Het is ook handig om te vermelden welke foutmelding je krijgt.
 
hallo,

Ja dat staat aangevinkt.
Ik krijg deze foutmelding :
Fout 429 tijdens uitvoering :
AxtiveX-onderdeel kan geen object maken
 
Zoek eens op: Runtime error 429.
 
Het betekent dat Outlook niet geïnstalleerd is.


@Dotch

studeer nog eens op het verschil tussen 'early binding' en 'late binding'.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan