Excel automatisch mailen na bewerken

[rickuitulft]

Hoe kun je een excel automatisch laten mailen wanneer deze is gewijzigd. bij voorkeur naar meerdere emailadressen.

 

[Ndam90]

Door een macro te maken die bijvoorbeeld bij het opslaan van het document direct het document ook mailt naar een paar mail adressen?

 

[rickuitulft]

Heb je voor mij een voorbeeld?

 

[Roncancio]

Het mailen naar meerdere adressen is niet zo'n probleem.
Op dit Excelforum staan veel mogelijkheden.

Het probleem is wanneer je precies wilt mailen.
Als je wilt mailen zodra er een wijziging plaatsvindt, gaat men wel heel veel mailtjes ontvangen.
Dat lijkt mij niet wenselijk.

Met vriendelijke groet,


Roncancio

 

[rickuitulft]

Mijn macro start niet automatisch bij opslaan/afsluiten, weet iemand wat er verkeerd gaat?
Sub mailen_naar_team_XXX()
'
' mailen_naar_team_XXX Macro
' verstuurd een email met de actuele planning naar alle leden van team XXX.
'

'
Application.Goto Reference:="mailen_naar_team_XXX"

If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If

x = MsgBox("Planning van team XXX is(nog) niet opgeslagen, wilt u deze opslaan?", vbYesNoCancel, "Planning opslaan?")
If x = vbNo Then
x = MsgBox("Planning van team XXX is(nog) niet opgeslagen, wilt u deze opslaan?", vbOKOnly, "Planning opslaan?")
Exit Sub
ElseIf x = vbCancel Then
Exit Sub
ElseIf x = vbYes Then
ThisWorkbook.Save
End If

With CreateObject("Outlook.Application").CreateItem(0)
.To = "XXX@XXX.nl;"
.CC = ""
.BCC = ""
.Subject = Range("B1") & " - " & Range("E1") & " " & Range("E12")
.Body = "Datum planning gewijzigd: " & Range("E1") & Chr(10) & _
" " & Range("I8") & Chr(10) & _
" " & Range("E12") & Chr(10) & _
" " & Range("E14") & Chr(10)
.Attachments.Add (ActiveWorkbook.FullName)
.send '.SEND of .DISPLAY
End With


End Sub

 

[Roncancio]

Je moet nog een verwijzing maken naar je macro in het event close van ThisWorkbook.

Zet onderstaande code in ThisWorkbook van je project.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
mailen_naar_team_XXX
End Sub

Met vriendelijke groet,


Roncancio