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

foutmelding: email versturen ja of nee

Status
Niet open voor verdere reacties.
F

FBV

Gebruiker
Lid geworden
9 mrt 2021
Berichten
22
In onderstaande krijg ik, indien ik op annuleren klik, een foutmelding.
iemand een idee wat ik hieraan moet veranderen om de email daadwerkelijk te annuleren?

Public Sub Main() 'verzenden met outlook
MsgBox "Weet je zeker dat je bestelling wilt versturen?", vbOKCancel
With CreateObject("Outlook.Application").CreateItem(0)
.to = "concept@gmail.com"
.Subject = "bestelling"
.Body = Blad1.Range("F5").Value
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
MsgBox "Uw bestelling is verzonden"
End With
End Sub
 
Je MsgBox gebruik je niet geweldig. Waarom vraag je om te versturen, en wil je dat hij wordt geannuleerd?
Code: 
Public Sub Main() 'verzenden met outlook
    If MsgBox("Weet je zeker dat je bestelling wilt versturen?", vbYesNo) = vbYes Then
        With CreateObject("Outlook.Application").CreateItem(0)
            .To = "concept@gmail.com"
            .Subject = "bestelling"
            .Body = Blad1.Range("F5").Value
            .Attachments.Add Application.ActiveWorkbook.FullName
            .Send
        End With
    End If
End Sub
 
OctaFish zei:
Je MsgBox gebruik je niet geweldig. Waarom vraag je om te versturen, en wil je dat hij wordt geannuleerd?
Code: 
Public Sub Main() 'verzenden met outlook
    If MsgBox("Weet je zeker dat je bestelling wilt versturen?", vbYesNo) = vbYes Then
        With CreateObject("Outlook.Application").CreateItem(0)
            .To = "concept@gmail.com"
            .Subject = "bestelling"
            .Body = Blad1.Range("F5").Value
            .Attachments.Add Application.ActiveWorkbook.FullName
            .Send
        End With
    End If
End Sub
Klik om te vergroten...

Als ze zien dat er een fout wordt gemaakt, kan t alsnog geannuleerd worden.
Bekijk bijlage 357391
 
Je kan gebruik maken van .Display i.p.v. .Send; geen msgbox voor nodig.
Voordeel: Je kan de te versturen mail bekijken en alsnog versturen.
 
HSV zei:
Je kan gebruik maken van .Display i.p.v. .Send; geen msgbox voor nodig.
Voordeel: Je kan de te versturen mail bekijken en alsnog versturen.
Klik om te vergroten...

ik zie t liever met een msgbox
 
Logica?; Wanneer zie je dat er een fout is gemaakt?
 
HSV zei:
Logica?; Wanneer zie je dat er een fout is gemaakt?
Klik om te vergroten...
als de besteller twijfelt?

Na onderstaand:
Public Sub Main() 'verzenden met outlook
If MsgBox("Weet je zeker dat je bestelling wilt versturen?", vbYesNo) = vbYes Then
With CreateObject("Outlook.Application").CreateItem(0)
.To = "concept@gmail.com"
.Subject = "bestelling"
.Body = Blad1.Range("F5").Value
.Attachments.Add Application.ActiveWorkbook.FullName
.Send
End With
End If
End Sub
 
Laatst bewerkt:
Nadat het verzonden is ontdek je vaak de fouten.
Succes ermee.

Ps. Gebruik de reageerknop i.p.v. de citeerknop en de plaats de code tussen codetags.
 
Berichten intrekken lukt niet altijd, dus daar zou ik niet voor kiezen. Dit:
FBV zei:
ik zie t liever met een msgbox
Klik om te vergroten...
is uiterlijk vertoon prefereren boven functionaliteit. Mijn voorkeur zou het ook hebben om .Display te gebruiken; ik gebruik .Send eigenlijk alleen bij mailtjes waarvan ik 100% ervan overtuigd ben dat de inhoud en de tekst in de mail klopt. Da's natuurlijk ook niet zo moeilijk te maken. Volledig geautomatiseerde mails behoeven geen gebruikers interventie, en derhalve ook geen .Display om ze te bekijken.
 
Het is mij ook niet gelukt om een bericht in te trekken.
Jammer, was wel een leuk dingetje geweest.
 
Kan prima op een Exchange server, maar daar zit je thuis doorgaans niet op.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan