excel:inhoud van geselecteerde cel plaatsen in body van mail

[KD7]

Hallo iedereen,

Bij deze wilde ik even een vraag stellen over excel, ik zit namelijk met het volgende:

Ik zou graag de inhoud van een geselecteerde cel (of rij) willen invoegen in de body van een email.
Het gaat om een soort "bijzonderheden" rapportage. Indien de gebruiker de inhoud wilt mailen naar een persoon dan zal hij de betreffende cel of rij moeten selecteren en dan op de "mail knop" klikken waardoor een mail geopend word in outlook met in de body de inhoud van deze cel en/of rij. op internet vind ik veel over een vaste range of een hele sheet maar heb nog niets gevonden waarin beschreven staat hoe de inhoud van een willekeurig geselecteerde cel gemaild wordt.. ik hoop dat ik een beetje duidelijk ben anders hoor ik dit graag zodat ik dit beter kan toelichten.. alvast hartstikke bedankt voor de moeite om mij in de juiste richting te bewegen

Relevante software en hardware die ik gebruik
Excel 2016

Wat ik al gevonden of geprobeerd heb:

Private Sub CommandButton3_Click()

Dim OutlookApp As Object: Set OutlookApp = CreateObject("Outlook.Application")
Dim var As Variant: var = Selection.Value
Set MyMail = OutlookApp.CreateItem(0)
With MyMail
.To = "mailadres1" & ";" & "mailadres2"
.Subject = "Bijzonderheden"
.HTMLbody = "Beste blabla" & "<br><br>" & "Graag wilde ik je op de hoogte stellen van de
onderstaande bijzonderheden:" & "<br><br>" & " hier zou de inhoud van de geselecteerde
cel en of rij moeten komen " & "<br><br>" & "Met vriendelijke groet,"
End With
MyMail.Display
End Sub

nogmaals dank!!

[heuveltje]

en wat werkte er wel of niet in dat wat je geprobeerd hebt ?

je hebt dus al iets wat een range kan verzenden.
dan is het alleen een kwestie van die range aanpasen
https://docs.microsoft.co...el.application.activecell

[KD7]

Hey heuveltje,

Dank je voor je snelle reactie, de code die ik heb werkt wel alleen kon ik nergens de code vinden
welke de inhoud van de geselecteerde cel in de body van de mail zou plaatsen. Ik zag alleen code waarin een vaste range geplaatst werd.

in mijn code had ik het volgende:
Dim var As Variant: var = Selection.Value

en wilde ik dus in de body een referentie naar "var" plaatsen maar dat werkte dus niet..

ik ga even een kijkje nemen naar de link die je me gegeven hebt, dank je!

[KD7]

Sorry ben beetje noob in deze hoor

als ik mijn code:

Dim var As Variant: var = Selection.Value

verander in:

Dim var As Variant: var = ActiveCell.Value

zou "var" een referentie zijn naar de geselecteerde cel, hoe kan ik deze plaatsen in mijn body van de mail?

of begrijp ik het nu verkeerd?

[KD7]

[ Voor 99% gewijzigd door KD7 op 10-03-2021 05:00 . Reden: dubbele post sorry ]

[KD7]

Is er iemand die toevallig mij hier in kan sturen?

Dank

[g0tanks]

KD7 schreef op woensdag 10 maart 2021 @ 04:30:
in mijn code had ik het volgende:
Dim var As Variant: var = Selection.Value

en wilde ik dus in de body een referentie naar "var" plaatsen maar dat werkte dus niet..

Kan je eens laten zien hoe je dat (refereren naar var in de body) hebt gedaan?

[Lustucru]

KD7 schreef op woensdag 10 maart 2021 @ 04:46:
Sorry ben beetje noob in deze hoor

Dat is wel een understatement. Lees je even in in het gebruik van variabelen in VBA. Anyway

code:

'bijvoorbeeld

   dim txt as string, cTxt as string
   txt= "foo"
   ctxt="zo voeg je samen: " & txt & "bar"
   msgbox ctxt

[KD7]

Uhmz, dank jullie beide voor jullie reacties.. en inderdaad dat is wel een understatement maar dat weerhoudt me niet om te willen leren... Het refereren naar is hetgeen wat mij juist niet lukt

mijn code was als volgt:

Private Sub CommandButton3_Click()

Dim OutlookApp As Object: Set OutlookApp = CreateObject("Outlook.Application")
Dim var As Variant: var = Selection.Value
Set MyMail = OutlookApp.CreateItem(0)
With MyMail
.To = "mailadres1" & ";" & "mailadres2"
.Subject = "Bijzonderheden"
.HTMLbody = "Beste blabla" & "<br><br>" & "Graag wilde ik je op de hoogte stellen van de
onderstaande bijzonderheden:" & "<br><br>" &

" var "

& "<br><br>" & "Met vriendelijke groet,"
End With
MyMail.Display
End Sub

maar dat werkt natuurlijk niet...

[KD7]

@Lustucru na een beetje spelen zag ik inderdaad wat je bedoelde, de referentie werkt nu wel naar behoren. Vreemd want deze optie had ik al een keer geprobeerd wat toen niet werkte.

In ieder geval hartelijk dank voor je hulp aan deze noob, en alle andere die geantwoord hebben ook heel erg bedankt!