Automatisch E-mail versturen

[bertuz87]

Goedemorgen allemaal,

Voor mijn werk ben ik bezig met een excel bestand voor facuren e.d. Nu wil ik graag een macro maken waarin ik excel na het opslaan van het bestand automatisch een email verstuurd naar 1 bepaalde ontvanger, met als onderwerp de naam van de klant en het factuurnummer.

Is dit mogelijk? Zo ja, hoe dan?

Hopelijk kunnen jullie mij helpen,

Groeten

 

[Wigi]

Voor het versturen van emails, zie

http://www.rondebruin.nl/sendmail.htm

Combineer dit met een BeforeSave event en je bent er.

 

[jpvs]

Misschien kun je iets halen uit dit vb?

Pierre

 

[bertuz87]

Ja dankjewel!

Alleen wil ik het graag naar 2 email ontvangers versturen, is dat ook mogelijk. Wat moet ik dan aanpassen.

En op t werken wil ik het zo doen/. Dat ik Blad 2 heel dat verhaal van jou staat. En Dat in BLad een de factuur staat, want als ik dan de factuur wil printen krijg ik namelijk al die dingen mee die jij in Blad 1 gezet hebt.

Is dat ook mogelijk?

Groeten

 

[jpvs]

Verwijder eerst cel L12
en pas de macro aan :
Recipients:=Array("naam@telenet.be", "naam@telenet.be"), _

Pierre

 

[bertuz87]

Wacht het is nu wel gelukt..


Alleen is het mogelijk dat ik he bestand MOET verzenden voordat ik afsluit? Zodat ik dus nooit kan vergeten een factuur o.i.d. door te sturen naar desbetreffend persoon?

 

[Wigi]

Met een Workbook_BeforeClose event kan je bv. een bericht op het scherm zetten zodat je niet kan vergeten de mail te versturen. Lijkt mij het simpelste.

 

[bertuz87]

Okey dat is me nu gelukt.

Maar nu zou k graag als ik dat schermpje komt, en ik op "Ja" klik dat dan automatisch die email word verzonden d.m.v. van de macro Send_Mail.


Groeten Bert

 

[Wigi]

Zet dan een regel met

SendMail

bij dat

Workbook_BeforeClose event

Zo ongelooflijk ingewikkeld is het allemaal niet hoor

Wigi

 

[bertuz87]

ZOu je het even in een voorbeeld kunnen zetten?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Wil je het bestand per e-mail verzenden", vbYesNo, "Run.Application.This.Workbook.xls!SendMail") = vbNo Then Cancel = True
End Sub

Waar moet ik de Code dan neerzetten?

Is dat de volgende code:

ActiveWorkbook.SendMail _
Recipients:=Array("emailadres", "emailadres"), _
Subject:="reminder " & ThisWorkbook.Sheets("Adresgegevens").Range("A4").Value & " " & ThisWorkbook.Sheets("Adresgegevens").Range("C10").Value

Groeten Bert

P.S. VOor alle duidelijk nog even wat ik graag zou willen.


Ik wil niet dat ik het excel bestand kan afsluiten zonder dat er aan mij gevraagd word, via Beforeclose'

"Wilt u het bestand per email verzende?"

Als ik dan dus op jou zou drukken, moet automatisch de Macro 'Sendmail' die jvps voor mij gemaakt heeft zich uitvoeren.

 

[jpvs]

Macro van Wigi doet het niet?

Compileerfout: Het argument is niet optioneel op SendMail

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Wil je het bestand per e-mail verzenden", vbYesNo, "Run.Application.This.Workbook.xls!SendMail") = vbNo Then Cancel = True
SendMail
End Sub

Op de ouderwetse manier dan.

Pierre

 

[bertuz87]

het bijgesloten bestandje klopt idd, die vraagt om de mail e verzenden en als ik op ja druk dan doet ie dat.

Maar zodra ik de macro kopieer naar mn officiele excel bestand. werkt deze nie meer, en gebeurt er niks als ik het bestand afsluit.

RaRa Hoe kan dit?

Groeten

 

[Wigi]

Heb je alle code wel gekopieerd?

 

[bertuz87]

Ja ik heb alles gekopieerd ja. Ik heb alle codes gekopieerd die er staan.


Maar misschien doe ik het fout.

Ik kopieer en plak gewoon de codes uit de modules naar t ander werkblad.

Is dat de goede manier?



Groeten

 

[bertuz87]

Hallo,

Het is gelukt!


Alleen ben ik nu aan het proberen om 2 BeforeClose samen te voegen.


Ik heb het nu voor elkaar dat hij dus vraagt of ik n mail wil verzenden, en zo ja dat hij die automatisch verzend.

Ook lukt het me dat hij vraagt of ik het bestand wil uitprinten, zo ja print hij die 3 maal uit.


Nu wil ik die twee dus samen in 1 workbook. Maar dat krijg ik dus niet voor elkaar.

Hoe kan dat wel?

 

[jpvs]

zo dan,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MessageBox
    MessageBox1
End Sub

Pierre