Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 6 van 6

Onderwerp: email versturen met in bericht de info uit een cel

  1. #1
    Junior Member
    Geregistreerd
    9 maart 2021
    Vraag is niet opgelost

    Arrow email versturen met in bericht de info uit een cel

    hallo

    ik heb een emailknop gemaakt in excel met onderstaande waarden:

    Code:
    Private Sub CommandButton1_Click()
    End Sub
    Sub mail_werkboek_met_sendmail()
    ActiveWorkbook.SendMail "excel@gmail.com", "Quick & Easy"
    End Sub
    Hierbij wordt het volledige excelbestand in een email verstuurd. Deze werkt prima.
    Echter wil ik uit 1 bepaalde cel uit een werkblad de informatie toevoegen in het bericht.

    heeft iemand een idee hoe ik deze info toevoeg in/bij bovenstaande macro.
    Laatst aangepast door puppie : 8 april 2021 om 06:13

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Heb je al bij Ron de Bruin gekeken?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Junior Member
    Geregistreerd
    9 maart 2021
    Thnx, maar dit wordt me te ingewikkeld
    ik dacht dat dit op een makkelijkere manier kan.

    misschien nog een andere optie?

  4. #4
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Ron de bruin in a nutshell, werkt alleen met outlook.

    Code:
    Public Sub Main()
        With CreateObject("Outlook.Application").CreateItem(0)
            .to = "ron@debruin.nl"
            .CC = ""
            .BCC = ""
            .Subject = "This is the Subject line"
            .Body = Blad1.Range("A1").Value
            .Send   'or use .Display
        End With
    End Sub
    Laatst aangepast door alphamax : 7 april 2021 om 22:13

  5. #5
    Junior Member
    Geregistreerd
    9 maart 2021
    Goededag

    Is deze te combineren met onderstaand op een of andere manier?
    Sub mail_werkboek_met_sendmail()
    ActiveWorkbook.SendMail "sne@gmail.com", "Quick & Easy"

    Ik wil nl het complete excelbestand meesturen
    alvast bedankt

  6. #6
    Mega Senior
    Geregistreerd
    16 maart 2011
    Locatie
    Weert
    Code:
    Public Sub Main()
        With CreateObject("Outlook.Application").CreateItem(0)
            .to = "ron@debruin.nl"
            .CC = ""
            .BCC = ""
            .Subject = "This is the Subject line"
            .Body = Blad1.Range("A1").Value
            .Attachments.Add Application.ActiveWorkbook.FullName
            .Send   'or use .Display
        End With
    End Sub
    Maar eigenlijk staat dit al 100.000 keer op deze site, deze vraag is een "classic".
    Laatst aangepast door alphamax : 8 april 2021 om 17:44

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

Regels
Help

Helpmij.nl en business

Partners
Sponsoren