Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 12 van 12

Onderwerp: Email verzenden van adres

  1. #1
    Vraag is opgelost

    Email verzenden van adres

    Ik kom er niet uit.

    ik heb een code voor het versturen van een email vanuit Excel met het bestand als bijlage.
    Echter lukt het mij niet om te versturen vanuit een vast email account.

    Wie kan mij helpen?

    Code:
    Private Sub CommandButton1_Click()
    
        Dim OutApp As Object
        Dim OutMail As Object
        Dim oAccount As Object
        Dim MailAdres As String
        Dim MailBody As String
        Dim MailOnderwerp As String
        Dim MailFrom As String
    
        MailFrom = "test@mail.nl"
        MailAdres = Sheets("Elektra").Range("F9")
        MailOnderwerp = "Meetdata: " & Sheets("Elektra").Range("F3")
        MailBody = "Geachte heer, mevrouw," & vbCrLf & _
                " " & vbCrLf & _
                   "In de bijlage " & Sheets("Elektra").Range("F11") & vbCrLf & _
                   " " & vbCrLf & _
                   " " & vbCrLf & _
                   "Met vriendelijke groet," & vbCrLf & _
                   " " & vbCrLf & _
                   "van mij " & vbCrLf & _
                   " " & vbCrLf & _
                   "E-mail: test@mail.nlu" & vbCrLf & _
                   " " & vbCrLf & _
                   " " & vbCrLf & _
                   " "
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
        
        On Error Resume Next
        
        For Each oAccount In OutApp.Session.Accounts
            If oAccount.DisplayName = MailFrom Then
        
        With OutMail
            .to = MailAdres
            .CC = ""
            .BCC = ""
            .Subject = MailOnderwerp
            .Body = MailBody
            .Display
            .Attachments.Add ActiveWorkbook.FullName
            .Display 
        End With
        
        On Error GoTo 0
    
        Set OutMail = Nothing
        Set OutApp = Nothing
        End If
        Next
        
    End Sub

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Daar gebruik je SendUsingAccount voor:
    https://docs.microsoft.com/en-us/off...ndusingaccount
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Quote Origineel gepost door edmoor Bekijk Bericht
    Daar gebruik je SendUsingAccount voor:
    https://docs.microsoft.com/en-us/off...ndusingaccount
    Ik heb het doorlopen en mijn code aangepast maar ik krijg hem niet werkend.
    Kan iemand kijken wat ik niet goed doe?
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Op de website die ik plaatste kan je zien dat je iets niet hebt gedaan dat daar wel staat:
    Code:
    Set .SendUsingAccount = OutAccount
    Laatst aangepast door edmoor : 8 november 2019 om 14:42
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  5. #5
    Ik kwam er niet uit dus ben op google gaan zoeken op: SendUsingAccount

    Toen kwam ik op deze pagina. Ik heb volgens mij alles goed staan.
    Ik heb geen idee waar ik in mijn code het stukje
    Code:
    Set .SendUsingAccount = OutAccount
    moet toevoegen om het werkend te krijgen.

    Dit gaat mijn kennis nog te boven.
    Laatst aangepast door genexxa : 8 november 2019 om 15:29

  6. #6
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Waar nu in je code dit staat:
    .SendUsingAccount = OutAccount

    Maak je er dit van:
    Set .SendUsingAccount = OutAccount
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  7. #7
    Quote Origineel gepost door edmoor Bekijk Bericht
    Waar nu in je code dit staat:
    .SendUsingAccount = OutAccount

    Maak je er dit van:
    Set .SendUsingAccount = OutAccount
    Ik krijg nu een foutmelding.
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  Knipsel.JPG‎
Bekeken: 24
Grootte:  81,0 KB  
    Bijgevoegde bestanden Bijgevoegde bestanden
    Laatst aangepast door genexxa : 8 november 2019 om 15:38

  8. #8
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Ik heb een aantal dingen voor je aangepast.
    Kijk dus in de code:
    test_mail.xlsm
    Laatst aangepast door edmoor : 9 november 2019 om 10:24
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  9. #9
    Echt bedankt.

    Zie dat je de code ook iets ingekort heb. Weer iets geleerd.
    Echt super bedankt!

  10. #10
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Graag gedaan

    Tip:
    De tekst voor de mailbody kan je ook uit een werkblad halen.
    Op die manier kan je dan ook gebruik maken van fonts, kleurtjes, grootte en regelafstanden, zonder dat je daar moeilijk voor hoeft te doen in VBA.
    Als je wilt kan ik daar in je eigen document wel een voorbeeldje van maken.
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  11. #11
    Quote Origineel gepost door edmoor Bekijk Bericht
    Tip:
    De tekst voor de mailbody kan je ook uit een werkblad halen.
    Op die manier kan je dan ook gebruik maken van fonts, kleurtjes, grootte en regelafstanden, zonder dat je daar moeilijk voor hoeft te doen in VBA.
    Als je wilt kan ik daar in je eigen document wel een voorbeeldje van maken.
    Als je wil zou dat erg fijn zijn.
    Ben erg benieuwd hoe je dat kan doen.

  12. #12
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Kijk maar eens naar dit voorbeeldje:
    test_mail.xlsm

    Hierin is de functie RangeToHTML van Ron de Bruin in Module1 opgenomen.
    Laatst aangepast door edmoor : 11 november 2019 om 11:40
    "It's hardware that makes a machine fast. It's software that makes a fast machine slow. "
    Op rechtstreekse vragen via email of privébericht reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren