In marco nieuw email bericht klaarzetten

[Maurice40]

Ik heb een mooie site gevonden waar veel voorbeeldcodes opstaan voor het versturen van een mail.
http://www.rondebruin.nl/win/s1/outlook/mail.htm

Ik heb het voor elkaar gekregen om een email klaar te zetten op het moment dat er in een bepaalde cel een bepaalde waarde wordt ingevoerd. Hiervoor wordt een Worksheet_Change gebruikt. Met deze Worksheet_Change kan ik een macro starten die een nieuwe email klaarzet met daarin het gewenste verzendadres en een standaard berichtje.
Ik loop echter tegen een aantal problemen aan:
1. Ik wil de Worksheet_Change starten als er een bepaalde tekst wordt ingevuld, dit lukt me nu alleen als er een bepaalde waarde (>200) wordt ingevuld.
2. Het lukt me niet om de Worksheet_Change te starten als ik de cel vul via een Userform.
3. Hoe kan ik het onderwerp in de mail vullen met tekst uit een bepaalde cel.
4. Hoe kan ik Van... aanroepen in de mail om zo te kunnen mailen via een ander email adres dan mijn eigen.
Ik heb geprobeert met .From, maar dat werkt niet.

Ik heb het bestand "email verzenden" toegevoegd.

Wie wil me hiermee helpen?

 

[Elsendoorn2134]

Maurice.

Vraag 1 Pas je programma aan.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("A2"), Target) Is Nothing Then
        If IsNumeric(Target.Value) And Target.Value > 200 Then
            Call Mail_small_Text_Outlook
        End If
        If Target.Value = "Appel" Then
            Call Mail_small_Text_Outlook
        End If
    End If
End Sub

Vraag 2 Als je vanuit een formulier een cel vult gebruik je VBA, start van hieruit het opstellen van de mail.
Vraag 3 Simpel,

 .Subject = Worksheets("Blad1").Range("E1").Value

Vraag 4 gebruik in plaats van .From

.SentOnBehalfOfName = "aansluitbox@tele.com"

Veel Succes

 

[Maurice40]

Top, het werkt perfect. Bedankt.