mail knopje ?

Stel hier je vraag over een Excel probleem
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

mail knopje ?

Berichtdoor Ronnie Heuveling » 11 aug 2019 12:00

t wil maar niet lukken om het werkend te krijgen,
wat doe ik toch fout :-)



gr Ron
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

Re: mail knopje ?

Berichtdoor Ronnie Heuveling » 11 aug 2019 12:14

was nog mn voorbeeldje vergeten.
Bijlagen
knopje.PNG
knopje.PNG (30.21 KiB) 111 keer bekeken
tknijnenburg
Berichten: 27
Lid geworden op: 18 feb 2019 17:04

Re: mail knopje ?

Berichtdoor tknijnenburg » 13 aug 2019 09:55

Een E-mail adres op een forum zetten is niet handig i.v.m. spam, hackers enz.

Iedere routine moet worden voorafgegaan door Sub en worden afgesloten met End Sub
Wijzig de code in
Private Sub CommandButton1_Click()
mailen
End Sub
Sub Mailen()
ActiveWorkbook.SendMail "RonHeuveling@gmail.com", "Upload 1"
End Sub

Succes.
Grtz, Ton
kn-ict.com
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

Re: mail knopje ?

Berichtdoor Ronnie Heuveling » 13 aug 2019 18:44

hoi Ton,

krijg de melding ( zie bijlage) maar geen verstuurde mail ook niet na toestemming.

nog ideeën?



gr Ronnie.
Bijlagen
waarschuwing.PNG
waarschuwing.PNG (16.43 KiB) 101 keer bekeken
Ad Becude
Berichten: 24
Lid geworden op: 30 apr 2019 15:15

Re: mail knopje ?

Berichtdoor Ad Becude » 14 aug 2019 10:53

Ronnie,
Gebruik dit voorbeeld, Blad en range aanpassen naar eigen behoefte.
Maak een knoppie, en hang er deze code achter.

Sub Mail_ActiveSheet()
If MsgBox("Mail verzenden?", vbYesNo, "Mail verzenden") = vbYes Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
End If
On Error Resume Next
With OutMail
For Each cell In ThisWorkbook.Sheets("Blad3").Range("B1") 'e-mailadres
If cell.Value Like "?*@?*.?*" Then
If strto = "" Then strto = stro & ";"
strto = strto & cell.Value & ";"
End If
Next cell
.To = strto
.CC = ""
.BCC =""
.Subject = [C1] 'onderwerp
For Each cell In ThisWorkbook.Sheets("Blad3").Range("F3:F21") 'de te verzenden tekst
strbody = strbody & cell.Value & vbNewLine
Next
.body = strbody
.send
End With
Set OutMail = Nothing
Set OutApp = Nothing
End sub
Met vriendelijke groeten, Ad
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

Re: mail knopje ?

Berichtdoor Ronnie Heuveling » 14 aug 2019 23:12

Hoi Ad,

van alles geprobeerd, maar krijg t knopje niet werkend.

wat doe ik toch fout hahaha.

kun je me nog met nog iets helpen?

de gekleurde cellen wil ik beveiligd hebben, maar wanneer ik de pagina beveilig, vallen enkele functies uit. kleur van cel ABC verandert niet meer, of wanneer ik een badge nummer invul reageert de automatische tijd niet meer.

wat een super leek ben ik toch :-)

Groetjes Ronnie
Bijlagen
Werkt bijna 3.xlsm
(343.19 KiB) 4 keer gedownload
Ad Becude
Berichten: 24
Lid geworden op: 30 apr 2019 15:15

Re: mail knopje ?

Berichtdoor Ad Becude » 15 aug 2019 07:09

Ronnie,

Als ik het goed begrijp wil je eigenlijk het bestandje als bijlage mee sturen? Zo ja...vergeet dan de code die ik heb gepost.
En moet je eens kijken bij www.rondebruin.nl
Met vriendelijke groeten, Ad
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

Re: mail knopje ?

Berichtdoor Ronnie Heuveling » 15 aug 2019 08:00

Goede morge,

mooi, kan denk wel verder komen bij Rondebruin THNX.

weet je wel een oplossing voor mijn beveiligins probleempje ?.


groetjes Ronnie
Ad Becude
Berichten: 24
Lid geworden op: 30 apr 2019 15:15

Re: mail knopje ?

Berichtdoor Ad Becude » 15 aug 2019 11:14

Wijzig je code door deze:

Private Sub Worksheet_Change(ByVal Target As Range)
If NoEvent Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Target.EntireRow, Range("E:E,I:I,M:M,Q:Q,U:U,Y:Y,AC:AC,G:G,K:K,O:O,S:S,W:W,AA:AA,AE:AE")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
ActiveSheet.Unprotect
NoEvent = True
Target.Offset(, -1).Value = Time
Target.EntireRow.Cells(, 1) = Date
NoEvent = False
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
End If
End Sub
Met vriendelijke groeten, Ad
Ronnie Heuveling
Berichten: 26
Lid geworden op: 18 jul 2019 10:04

Re: mail knopje ?

Berichtdoor Ronnie Heuveling » 16 aug 2019 10:28

Hoi Ad,

Bedankt voor je hulp, in een woord Geweldig !!.

voor mn volgend probleempje een nieuw item aangemaakt.

Groetjes Ronnie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers en 1 gast