automatisch email versturen vanuit excel

[jellevanbruggen]

Hallo,

in de bijlage een voorbeeld van een excel bestand. Dit is een gedeelte van een bestand wat 24/7 is geopend. Indien er in kolom C een waarde wordt ingevoerd die lager is dan de waarde in Kolom G zou het fijn zijn als op dat moment er een email wordt verstuurd (via outlook) naar een bepaald email adres.
- dit zou moeten kunnen via een macro als ik het goed begrijp
- moet deze email dan nog fysiek worden verstuurd door in outlook op verzenden te drukken, of kan deze stap worden overgeslagen
- omdat het bestand 24/7 is geopend dan zou er dus een macro moeten zijn dit gaat werken op het moment dat er een getal wordt ingetypt in kolom C.

Is dit allemaal mogelijk?

 

[HSV]

In bladmodule van toepassing.

Werkend met Outlook.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OutlApp As Object
If Not Intersect(Target, Columns(3)) Is Nothing And Target.Row > 1 And Target.Count = 1 Then
   If Target.Value < [g1].Value And Target <> "" Then
     On Error Resume Next
         Set OutlApp = GetObject(, "Outlook.Application")
     On Error GoTo 0
         If OutlApp Is Nothing Then
           Application.ActivateMicrosoftApp xlMicrosoftMail
           Set OutlApp = CreateObject("Outlook.Application")
         End If
    With OutlApp.CreateItem(0)
      .Subject = "Ik mail u omdat de waarde lager is dan de waarde in cel G1"
      .To = "mailadres@gmail.com"
      .Send
      Application.Wait DateAdd("s", 3, Now)
    End With
  OutlApp.Quit
  Set OutlApp = Nothing
  MsgBox "mail succesvol verzonden"
 End If
End If
End Sub

 

[jellevanbruggen]

Top dit werkt wel!!! Alleen 1 puntje van kritiek, na mailen sluit microsoft outlook af. Waar ligt dit aan?

 

[jkpieterse]

Dat ligt aan "OutlApp.Quit"