hulp bij gemaakte excel met macro automatisch versturen (dubbele werking van knop)

Status
Niet open voor verdere reacties.

kenc

Gebruiker
Lid geworden
24 apr 2012
Berichten
6
Hallo,

Voor mijn werk ben ik bezig met een verbeter project.

Nu heb ik samen met mijn collega een excel bestand met macro gemaakt.
Deze werkt tot het aanmaken van een nieuwe map/bestand op een locatie op een schijf.
Dit alles werkt daar.

Nu willen we deze iets uitbreiden met; het automatisch versturen van een melding e-mail van het gemaakte/gecreëerde bestand-naam.

Dit door op de knop te drukken "Maak VOP + zend e-mail"

Tevens is er de wens om in het paars gekleurde vak, (waar er 3 keuzes zijn) verschillende personen gemaild kunnen gaan worden.

Heb graag uw hulp nodig om dit te kunnen realiseren.
 

Bijlagen

  • OVERZICHT VOP 2012 + INVOER-rev01.zip
    29,9 KB · Weergaven: 69
Hallo,

Ik heb je bestand even bekeken en heb een aantal vragen:

- Welk emailprogramma wil je gaan gebruiken
- Aan wie moet de meldingsmail verstuurd gaan worden?

Als ik naar de VBA code kijk, lijkt het erop dat dit een opgenomen macro is.
Wanneer er iets in de opbouw van het werkblad verandert, kan dit problemen opleveren.
Ook de locatie van opslag (de folder) die in cel B72 staat kan op een minder foutgevoelige manier worden geselecteerd/gewijzigd.

Mogelijkheden zijn er voldoende, maar belangrijkste is dat het werkbaar moet zijn en blijven.

Om mogelijk veel heen-en-weer berichten te voorkomen, kun je me ook direct mailen.
 
Hallo exopad.

Alvast bedankt voor je moeite en je reactie.

We gebruiken office outlook 2010, en willen deze gebruiken.
Zoals ik al vertelde wilde dit ik aan verschillende personen willen mailen afhankelijk van de keuze van het paarse vak (G12)
Bijvoorbeeld:
Keuze CAS = piet@email.nl en klaas@email.nl
Keuze OEM = Gerrit@email.nl en jan@email.nl
Keuze CAS-OEM = piet@email.nl en klaas@email.nl en Gerrit@email.nl en jan@email.nl

Van de opbouw kan ik je niet veel vertellen, dank wel dat je gelijk hebt dat dit een opgenomen macro is.
Of dit anders of beter kan hoor ik graag (eventuele aanpassingen verneem ik graag, u heeft het bestandje).
Aanpassingen mbt cel B72 sta ik ook open voor, zeker als het gaat om fout gevoeligheid.

Hoop dat u de wensen van het programmetje begrijpt/duidelijk is wat de bedoeling moet zijn.
Het u best wel willen mailen, lukt me niet.
Mijn direct mailen is ook goed of wenselijk.

Met vriendelijke groet,
kenc
 
Laatst bewerkt:
Hallo exopad

Als het goed is heb je nu een mail binnen?

Gr,
Kees
 
Om mogelijk veel heen-en-weer berichten te voorkomen, kun je me ook direct mailen.

En dat is dan juist net niet de bedoeling. Helpen doet men via het forum.Anderen die willen helpen weten dan ook de status.En daarbij...is er dan geen controle of de geboden hulp wel de juiste is.
Of zullen we het forum maar opdoeken dan??
Mocht er nu geholpen worden via mail dan toch wel evt oplosssingen in topic plaatsen.
 
Natuurlijk is dit forum er om allemaal wat wijzer van te worden.

Wat ik uiteindelijk heb gedaan is op een werkblad in drie verschillende rijen de emailadressen geplaatst die passen bij de mogelijkheden uit de keuzelijst.
Dus in rij 2:
CAS piet@email.nl en klaas@email.nl
Rij 3:
OEM Gerrit@email.nl en jan@email.nl
Rij 4:
CAS-OEM piet@email.nl en klaas@email.nl en Gerrit@email.nl en jan@email.nl

Vervolgens met een Loop een mail laten versturen naar een van deze emailadressen.
(Met If-statements in de code.... If Range("G12") = "CAS" Then ... gegevens uit rij 2 uitlezen If Range("G12") = "OEM" Then ... gegevens uit rij 3 uitlezen enz.)
 
Hallo Johan,

Alvast hartelijk dank zover.
Ben momenteel aan het testen, alleen kom ik nog niet verder omdat ik niet weet waar ik het pad/locatie verwijzing
kan verranderen om dit thuis ook uit te kunnen testen om de aanmaak te doen en te mailen.

Als je me misschien kan aangeven waar deze precies zit kan ik thuis testen.

Verder houd ik je op de hoogte voor het verdere verloop of uitbreiding/verbeteringen.

Hoop snel weer van je te horen.

Met vriendelijke groet,
Kees
 
Hallo Johan,

Het werk:d perfect.
Bedankt super.

Verder houd ik je op de hoogte voor het verdere verloop of uitbreiding/verbeteringen.


Met vriendelijke groet,
Kees
 
Je kan misschien je voltooide bestand hier plaatsen zodat andere forumgebruikers er ook iets aan hebben.
 
Hierbij de code die is toegevoegd om het mailen te laten functioneren:
_____________________
Dim mailbereik As String
mailbereik = Range("G12")

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String








strbody = "Nieuwe VOP " & Sheets("VOP blad deel 1 creator").Range("C6") & " aangemaakt op " & Now()

If mailbereik = "CAS" Then
Sheets("Werkblad").Select
Range("C2").Select
Do
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ActiveCell.Text
.CC = ""
.BCC = ""
.Subject = "Nieuwe VOP melding"
.Body = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell = ""
ElseIf mailbereik = "OEM" Then
Sheets("Werkblad").Select
Range("C3").Select
Do
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ActiveCell.Text
.CC = ""
.BCC = ""
.Subject = "Nieuwe VOP melding"
.Body = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell = ""

ElseIf mailbereik = "CAS-OEM" Then
Sheets("Werkblad").Select
Range("C4").Select
Do
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ActiveCell.Text
.CC = ""
.BCC = ""
.Subject = "Nieuwe VOP melding"
.Body = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell = ""
End If
_____________________
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan