ThijsWezenberg
Nieuwe gebruiker
- Lid geworden
- 21 apr 2021
- Berichten
- 4
Beste allemaal,
Momenteel ben ik bezig met een invulformulier in Word.
Dit formulier is niet zo heel spannend.
Het doel is dat er automatisch vanuit een specifiek Gmail-emailadres naar een ander zakelijk emailadres een mail verzonden wordt, dit is met wat YT tutorials al aardig gelukt.
Ik loop alleen vast op 2 punten.
1. Het lukt mij niet om de het huidige document (invulformulier) als bijlage mee te sturen, dit is wel essentieel. Ik krijg de volgende fout melding: "Het proces heeft geen toegang tot het bestand omdat het door een ander proces wordt gebruikt."
2. Ik zou graag willen dat het onderwerp van de email als volgt is opgebouwd: Agendapunt "Onderwerp" "Naam Indiener" "Datum van de vergadering"
Deze 3 punten zijn opgenomen als invulveld in het formulier.
Wie o wie kan mij hierbij helpen?
Alvast hartelijk dank!
Code:
Momenteel ben ik bezig met een invulformulier in Word.
Dit formulier is niet zo heel spannend.
Het doel is dat er automatisch vanuit een specifiek Gmail-emailadres naar een ander zakelijk emailadres een mail verzonden wordt, dit is met wat YT tutorials al aardig gelukt.
Ik loop alleen vast op 2 punten.
1. Het lukt mij niet om de het huidige document (invulformulier) als bijlage mee te sturen, dit is wel essentieel. Ik krijg de volgende fout melding: "Het proces heeft geen toegang tot het bestand omdat het door een ander proces wordt gebruikt."
2. Ik zou graag willen dat het onderwerp van de email als volgt is opgebouwd: Agendapunt "Onderwerp" "Naam Indiener" "Datum van de vergadering"
Deze 3 punten zijn opgenomen als invulveld in het formulier.
Wie o wie kan mij hierbij helpen?
Alvast hartelijk dank!
Code:
Code:
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strBody As String
Dim xDoc As Document
Set xDoc = ActiveDocument
strSubject = "Agendapunt"
strFrom = "EMAILADRES"
strTo = "EMAILADRES"
strBody = "Zie bijlage voor het agendapunt. Dit is een automatisch verzonden bericht."
Set CDO_Mail = CreateObject("CDO.Message")
On Error GoTo error_afhandeling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.fields
With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "EMAILADRES"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "WACHTWOORD"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Update
End With
With CDO_Mail
Set .Configuration = CDO_Config
End With
CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.AddAttachment xDoc.FullName
CDO_Mail.Send
MsgBox "Het agendapunt is succesvol ingediend.", vbInformation
exit_line:
Set CDO_Mail = Nothing
Set CDO_Config = Nothing
Exit Sub
error_afhandeling:
MsgBox "Fout: " & Err.Description, vbInformation