Email data uit (dynamische) cel

[Glenn11]

Hi allemaal,

Ik heb in werkblad gemaakt waarin medewerkers machines kunnen reserveren. (zie bijlage)

Medewerkers mogen max. 3 weken een machine reserveren. Zodra deze 3 weken voorbij zijn kleurt de volledige rij rood (dit werkt). Zolang de reservering binnen de 3 weken zit, dan kleurt de complete rij oranje (dit werkt ook). Is er geen reservering dan blijft de complete rij groen (dit werkt ook).

Echter wil ik nu een kolom erbij maken (E12) waarin een hyperlink ervoor zorgt dat de medewerkers een email kunnen sturen met:
1. Een onderwerp: 'reservering warehouse'
2. Een stukje tekst in de email
3. Gevolgd door de waarde uit kolom F12 van die specifieke regel
4. De geadresseerde is altijd hetzelfde email adres

Dus als iemand klikt op 'reserveer' in E17, dan moet de waarde van F17 toegevoegd worden aan de mail. Bij E37 moet dan F37 toegevoegd worden etc. etc.

Kunnen jullie mij de juiste richting aangeven hoe dit te doen?

Alvast bedankt!

 

[JEC.]

Bijvoorbeeld zo.
Met een dubbelklik in kolom E wordt de macro geactiveerd.

Plaats onderstaand achter je betreffende werkblad in de VBA editor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
  strBody = InputBox("Wat wil je in de mail zetten?")
  If strBody <> "" Then
    With CreateObject("Outlook.application").createitem(0)
      .to = "pietjeadads@excel.com"
      .Subject = "Reservering Warehouse"
      .body = strBody & vbCrLf & vbCrLf & Target.Offset(, 1).Value
      .display   [COLOR="#008000"] 'als je gelijk wil verzenden gebruik je:  .Send[/COLOR]
    End With
  End If
End If
End Sub

 

[Glenn11]

Bijvoorbeeld zo.
Met een dubbelklik in kolom E wordt de macro geactiveerd.

Plaats onderstaand achter je betreffende werkblad in de VBA editor.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 5 Then
  strBody = InputBox("Wat wil je in de mail zetten?")
  If strBody <> "" Then
    With CreateObject("Outlook.application").createitem(0)
      .to = "pietjeadads@excel.com"
      .Subject = "Reservering Warehouse"
      .body = strBody & vbCrLf & vbCrLf & Target.Offset(, 1).Value
      .display   [COLOR="#008000"] 'als je gelijk wil verzenden gebruik je:  .Send[/COLOR]
    End With
  End If
End If
End Sub

Hoi Jveer,

Bedankt voor je reactie. Via dit script moet de werknemer bijvoorbeeld het serienummer intypen/kopieeren/plakken. Ik wil graag dat automatisch de waarde van een bepaalde cel 0f de hele regel in excel in het bericht van de email komt.

Ik heb op de functie 'HYPERLINK' gevonden en het lijkt dat dit een oplossing is voor mij?
https://www.xelplus.com/send-email-from-excel-with-hyperlink-formula/

 

[JEC.]

Het serienummer wordt automatisch meegenomen wanneer je dubbelklikt in kolom E. Er komt geen typwerk aan te pas.