Ik ben nieuw bij VBA. Ik wil een e-mail sturen wanneer een cel K "Ja" heeft ingevoerd.... Ik ben zover gekomen maar worstel met de volgende stap.
Ik wil dat de e-mailtekst er als volgt uitziet:
Hallo, samenvatting van het projectvoorstel hieronder.
Projectnaam: *Info uit cel A*
Beschrijving: *cel B*
Oplossing: *cel C*
Voordelen: *Cel D*
Kosten: *Cel F*
Tijd: Cel *G*
Risico: Cel *H*
Klant(en): Cel I
Merk(en): Cell J
Met vriendelijke groet,
*Cel L*
Hieronder staat de code die ik tot nu toe heb gebruikt:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Target.Cells.Count > 1 Sub afsluiten
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Dan
Bel Mail_small_Text_Outlook
End If
End Sub
Submail_small_Text_Outlook()
Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody als tekenreeks
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Hallo daar" & vbNewLine & vbNewLine & _
"Dit is regel 1" & vbNewLine & _
"Dit is lijn 2"
On Error Resume Next
Met xOutMail
.To = "e-mailadres"
.CC = ""
.BCC = ""
.Subject = "verzenden via celwaardetest"
.Body = xMailBody
.Weergeven 'of gebruik .Verzenden'
Eindigt met
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Bij voorbaat dank aan iedereen die mij kan helpen.
Ik wil dat de e-mailtekst er als volgt uitziet:
Hallo, samenvatting van het projectvoorstel hieronder.
Projectnaam: *Info uit cel A*
Beschrijving: *cel B*
Oplossing: *cel C*
Voordelen: *Cel D*
Kosten: *Cel F*
Tijd: Cel *G*
Risico: Cel *H*
Klant(en): Cel I
Merk(en): Cell J
Met vriendelijke groet,
*Cel L*
Hieronder staat de code die ik tot nu toe heb gebruikt:
Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als Target.Cells.Count > 1 Sub afsluiten
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") Dan
Bel Mail_small_Text_Outlook
End If
End Sub
Submail_small_Text_Outlook()
Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody als tekenreeks
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Hallo daar" & vbNewLine & vbNewLine & _
"Dit is regel 1" & vbNewLine & _
"Dit is lijn 2"
On Error Resume Next
Met xOutMail
.To = "e-mailadres"
.CC = ""
.BCC = ""
.Subject = "verzenden via celwaardetest"
.Body = xMailBody
.Weergeven 'of gebruik .Verzenden'
Eindigt met
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Bij voorbaat dank aan iedereen die mij kan helpen.