Mail versturen

[Jarodxxx]

Gebruik onderstaande code om een mail te versturen van een meldingsformulier calamiteiten.

Probleempje duikt op dat de code het hele bestand doet i.p.v. alleen de sheet Meldingsformulier) geen idee of dit uberhaupt anders kan?

Dit maakt gebruik van office? en ik wil graag dat het werkt voor Lotus Notes kan dat?

Sub SendMail()
On Error Resume Next
    ActiveWorkbook.SendMail _
    Recipients:=Sheets("Meldingsformulier").Range("A1"), _
    Subject:="Calamiteit Melding"
On Error GoTo 0
End Sub

Jarod.

 

[richard1970]

kijk eens bij www.rondebruin.nl

 

[Jarodxxx]

Waarschijnlijk ben ik scheel

Bedankt!

Volgens mij ben ik scheel?
Want dit gaat over M$ Outlook e.d.
Zie zo Lotus Notes niet staan
Dat wordt gebruikt.

Jarod.

 

[koosl]

Jarodxxx


Ik heb hier een Excel voorbeeld waar van het aktieve werkblad een bijlage wordt gemaakt en aan een mail wordt gehangen en verzonden.
In cel A1 moet de naam van de bijlage te staan. (die kan dus variaren per werkblad)
En in cel A2 moet het e-mail adres staan. geen hyperlink! (adres kan ook varieren)

Ik heb in het voorbeeld ook omschreven hoe je het moet gebruiken om het te laten werken.

Misschien heb je er iets aan.

Koosl.

 

[Jarodxxx]

Jarod aan de Studie

Koosl,

Bedankt 't zal nog wel even puzzelen worden
snap alleen iets niet je moet op een gegeven ogenblik een bestandsnaam opgeven
cel A1 = de filname, ik gebruik in A1

="Meldingsformulier"&NU()

Maar dat wordt serieel weergegeven dat snap ik opzich wel, maar kan 't ook anders? gewoon de datum dus?

Jarod

 

[Wigi]

Koosl,

Bedankt 't zal nog wel even puzzelen worden
snap alleen iets niet je moet op een gegeven ogenblik een bestandsnaam opgeven
cel A1 = de filname, ik gebruik in A1

="Meldingsformulier"&NU()

Maar dat wordt serieel weergegeven dat snap ik opzich wel, maar kan 't ook anders? gewoon de datum dus?

Jarod

Als je in een cel bezig bent:

ipv. NU() kan je ook VANDAAG() nemen.

Tevens kan je de TEKST functie eens uitproberen.

Analoge functie hiervan in VBA is Format.

Wigi

 

[Jarodxxx]

Ik zal eens kijken wat me daarmee lukt

Bedankt!

Jarod.

 

[koosl]

Jarod,

De bijlage die er door de code gemaakt wordt moet natuurlijk een naam krijgen.
Die haalt de code uit cel A1.

Het onderwerp van de mail kun je in de code hier wijzigen.

Const stSubject As String = "nieuwe planning"

In cel A2 moet je gewoon het e-mail adres typen, dit wordt ook door de code gebruikt.


Dit is natuurlijk aan te passen als het per se moet.



Koosl

 

[koosl]

Jarod,

als je in de code deze regel omwisselt met deze hier, dan krijgt de bijlage de naam in cel
A1 met de datum van vandaag er achter.

Dus staat in A1 Jarod
dan is de naam van de bijlage Jarod 02-02-2007

stAttachment = stPath & "\" & stFileName & " " & Date & ".xls"

Koosl

 

[Jarodxxx]

Fantistas

Klasse!

Klopt helemaal Koosl
Wigi ook bedankt voor de input!

Jarod.

 

[koosl]

Jarod,


blij dat je tevreden bent.


Als het voor jou is opgelost zet je de vraag dan a.u.b. ook op ogelost?


Koos

 

[Jarodxxx]

Ik laat 'm nog even open

Ik ben nog niet in staat geweest om de code uit te proberen
Dus ik laat 'm even openstaan als je 't niet erg vind
Moet kijken of 't ook echt werkt met Lotus Notes

Groet,

Jarod

ps: verder had u gelijk

 

[koosl]

Jarod,


't is prima hoor. ( ik dacht te begrijpen dat je hem al werkende had )



Koos.

 

[koosl]

Jarod,


Hoe staat het ervoor met het mailen van een Excel werkblad met Lotus Notes?

Ik ben benieuwd of je het werkende hebt gekregen.


Koos