Bestelformulier mailen met macros

[JP2015]

Hallo allemaal,

Ik heb een vraag m.b.t. het gebruiken van macros in Excel.
In Excel heb ik een bestelformulier gemaakt en deze wil ik graag verzenden.

Nu heb ik een knop gemaakt waarop men kan klikken, deze wordt vervolgens geopend met het mail programma en in de bijlage staat het formulier.
Allemaal leuk en aardig, alleen ik zou ook graag het 'aan mailadres' ingevuld zien. Aangezien dit aangegeven is in mijn macro code.
Nu ben ik een beginner met macros in Excel en werk ik vanaf een Macbook. Het is de bedoeling dat het bestelformulier verstuurd kan worden vanaf elk mail programma.

De macro codes die ik gebruikt heb zijn afkomstig van Ron de Bruin.
http://www.rondebruin.nl/win/s1/div/mail1.htm
http://www.rondebruin.nl/mac/macmail/macoutlook1.htm

Nu heb ik bijna elke code al gebruikt alleen kom ik er maar niet uit, wie kan mij vertellen hoe ik dit doe?
Is er geen alternatief met een hyperlink, waarmee het bestand als bijlage bijgevoegd wordt?

Bekijk bijlage Voorbeeld.xls

 

[Arliator]

Hallo JP2015,

Ik heb je bestand bekeken en op de knop geklikt om te zien wat er gebeurde, maar volgens mij werkt het gewoon?
De mail wordt naar jouw adres gestuurd, het Aan veld is gevuld, anders kon die niet mailen.
Ik zou er overigens wel voor kiezen om eerst de mail te tonen aan degene die het wil versturen, zo kunnen ze nog wat tekst erbij zetten, nu wordt het bestand direct verstuurd.
Of is dit een bewuste keuze?
Maar ik weet dus niet wat het probleem is, want het bestand wordt gewoon verstuurd.
Ik zou overigens nog wel de koppeling eruit halen, die staat in cel F84.

 

[HSV]

Er staan inderdaad een code in die voor Windows werken, maar ook voor een Mac.
Het gaat om de Mac codes werkend te krijgen, maar er zijn hier weinig helpers in het bezit van een Mac.
De code die aan de knop hangt is voor Windows ("sendmail"), en die verzend direct zonder iets te tonen.

 

[VenA]

Het is de bedoeling dat het bestelformulier verstuurd kan worden vanaf elk mail programma.

En dan ook nog het liefst vanaf verschillende besturingssystemen?

Op de door jouw genoemde site kwam ik onlangs deze tegenhttp://www.rondebruin.nl/win/s1/cdo.htm misschien dat het ook op een Mac werkt.

Gaat boven mijn pet maar misschien kan je er wat mee:d

 

[JP2015]

Hallo JP2015,

Ik heb je bestand bekeken en op de knop geklikt om te zien wat er gebeurde, maar volgens mij werkt het gewoon?
De mail wordt naar jouw adres gestuurd, het Aan veld is gevuld, anders kon die niet mailen.
Ik zou er overigens wel voor kiezen om eerst de mail te tonen aan degene die het wil versturen, zo kunnen ze nog wat tekst erbij zetten, nu wordt het bestand direct verstuurd.
Of is dit een bewuste keuze?
Maar ik weet dus niet wat het probleem is, want het bestand wordt gewoon verstuurd.
Ik zou overigens nog wel de koppeling eruit halen, die staat in cel F84.

Het was geen bewuste keuze om hem direct te versturen, sterker nog hier weet ik niks vanaf. (enige idee hoe ik dit verander?)
Het probleem is dat hij hem niet verstuurd, tenminste vanaf mijn Macbook, maar als hij het vanaf jullie pc wel doet, dan ben ik al zeer tevreden.

 

[HSV]

De codes voor Microsoft werken, dus kun je gerust zijn.
Ik heb geen Mac dus ik kan niets voor je testen.
Google eens wat op 'sendmail with Mac' oid.

 

[JP2015]

Hoi allemaal,

Ik ben alweer een tijdje aan het klooien met de macros in Excel, alleen nu loop ik weer tegen een probleem aan.
Zoals jullie meldde werkte het eerste voorbeeld op een Windows pc en daar was ik erg blij om.
Helaas werkt deze nu niet meer en ik heb geen idee hoe dit kan.

Graag wil ik de e-mail eerst tonen voordat deze verzonden wordt, zodat er eventueel zelf opmerkingen geplaatst kunnen worden.
Voorheen verstuurde de macro deze mail per direct waardoor dit niet mogelijk was.
Nu maak ik gebruik van de onderstaande macro, alleen werkt deze van geen kant. Helaas heb ik geen idee hoe dit kan, wie kan mij helpen?


Sub Mail_workbook_1()

Dim wb As Workbook
Dim I As Long

Set wb = ActiveWorkbook

On Error Resume Next
For I = 1 To 3
wb.SendMail bodycontent:="Hallo, dit is een test mail.", _
mailsubject:="Bestelling onderdelen", _
toaddress:="jorrit.pot@hotmail.com", _
ccaddress:="", _
bccaddress:="", _
displaymail:=True
End With
If Err.Number = 0 Then Exit For
Next I
On Error GoTo 0
End Sub


Bekijk bijlage Voorbeeld 2.xls

 

[HSV]

Zoek eens op Excel verzenden met Outlook oid.
Die heeft een diplay venster.
Je haalt nu twee dingen door elkaar.
Onderdelen van 'Sendmail' en 'Outlook'.

 

[JP2015]

Zoek eens op Excel verzenden met Outlook oid.
Die heeft een diplay venster.
Je haalt nu twee dingen door elkaar.
Onderdelen van 'Sendmail' en 'Outlook'.

Bedankt voor de tip, als beginner is dit nogal lastig te onderscheiden.
Via Ron de Bruin werk ik nu met de onderstaande code, alleen geeft deze ook een foutmelding.
[XML]
Sub Mail_workbook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutMail = OutApp.CreateItem(olMailItem)
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.to = "jorrit.pot@hotmail.com"
.CC = ""
.BCC = ""
.Subject = "Test bestelling"
.Body = "Dit is een test mail."
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub[/XML]

Via Google kwam ik vervolgens bij de tool; microsoft ActiveX data objects 6.1 alleen is deze volledig voor Windows.
Mijn vraag is dan ook, weet iemand van jullie hoe ik deze toch vrij simpele code werkend kan krijgen op Windows?


Bij voorbaat dank.

Bekijk bijlage Voorbeeld 3.xls

 

[VenA]

Je gooit nog steeds wat dingen door elkaar. Voor Oulook gebruikers kan je deze gebruiken.

Sub Mail_workbook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim OutApp As Object
Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "jorrit.pot@hotmail.com"
        .CC = ""
        .BCC = ""
        .Subject = "Test bestelling"
        .Body = "Dit is een test mail."
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Display   'or use .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[HSV]

Persoonlijk zou ik het zo kort mogelijk en overzichtelijk doen.

Sub Mail_workbook_1()
'Working in Excel 2000-2013
'This example send the last saved version of the Activeworkbook
'For Tips see: [URL]http://www.rondebruin.nl/win/winmail/Outlook/tips.htm[/URL]
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = [EMAIL="jorrit.pot@hotmail.com"]jorrit.pot@hotmail.com[/EMAIL]
        .Subject = "Test bestelling"
        .Body = "Dit is een test mail."
        .Attachments.Add ActiveWorkbook.FullName
        .Display   'or use .Send
    End With
End Sub

 

[JP2015]

Bedankt voor de suggesties, hij werkt eindelijk weer.
Nu kan ik hem eindelijk weer verder uitbouwen