Hallo, misschien zoek ik het iets te ver of heb ik nog niet ver genoeg gezocht.
Van uit Acces (2007) neem ik enkele gegevens over in een Word-Document, als bladwijzer ( Id, Straat, Hn , Letter en e-mail adres )
Waarom doe ik dat, omdat Word meer tekst kan bevatten.
Nu wil ik dat kunnen mailen naar het e-mail adres die mee opgenomen in de bladwijzers, dit verandert afhangende van welke straatnaam er is ingevuld.
Alles lukt tot nu, maar het Sendto , daar loop ik vast. Ik krijg die bladwijer niet overgebracht .
Wel ik bekom wel iets, met .To = ActiveDocument.Bookmarks(1)< ------------ Probleem Krijg ik de bladwijzernaam in het veld
Iemand een idee, en kan het uber houd wel. Dank voor het willen luisteren
Van uit Acces (2007) neem ik enkele gegevens over in een Word-Document, als bladwijzer ( Id, Straat, Hn , Letter en e-mail adres )
Waarom doe ik dat, omdat Word meer tekst kan bevatten.
Nu wil ik dat kunnen mailen naar het e-mail adres die mee opgenomen in de bladwijzers, dit verandert afhangende van welke straatnaam er is ingevuld.
Alles lukt tot nu, maar het Sendto , daar loop ik vast. Ik krijg die bladwijer niet overgebracht .
Wel ik bekom wel iets, met .To = ActiveDocument.Bookmarks(1)< ------------ Probleem Krijg ik de bladwijzernaam in het veld
Iemand een idee, en kan het uber houd wel. Dank voor het willen luisteren
Code:
wd.Documents.Add "Contact met ******"
' Plaats het invoegpunt bij de bladwijzer 'bwNaam'.
wd.ActiveDocument.Bookmarks("Id").Select
' Type de naam van de medewerker uit het formulier in het document.
' In code kun je in Access naar het geopende formulier verwijzen met
' het woord 'Me.'. 'Naam' is het veld in de formulierkoptekst van het
' formulier 'Medewerkers'.
wd.Selection.TypeText Me.Id
wd.ActiveDocument.Bookmarks("Straat").Select
wd.Selection.TypeText Me.Straat
wd.ActiveDocument.Bookmarks("Hn").Select
wd.Selection.TypeText Me.Hn
wd.ActiveDocument.Bookmarks("Letter").Select
wd.Selection.TypeText Me.Letter
wd.ActiveDocument.Bookmarks("email").Select
wd.Selection.TypeText Me.e_mail
Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
'CommandButton1.Caption = "VERZONDEN"
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Dim docName As String
Dim pdfPath As String
Dim Bookmarks(1) As String
Dim bmRange As Range
On Error Resume Next
'Controleren of Outlook gestart is
Set appOutlook = GetObject(, "Outlook.Application")
If Err <> 0 Then
'Outlook is niet gestart
Set appOutlook = CreateObject("Outlook.Application")
bStart = True
End If
'Document opslaan
Set Doc = ActiveDocument
docName = "***********"
Doc.SaveAs docName
'Document opslaan als PDF in de temp map
pdfPath = Environ("temp") & "\"
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=pdfPath & docName & ".pdf", _
ExportFormat:=wdExportFormatPDF
'Nieuw e-mailbericht object maken
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
If ActiveDocument.Bookmarks.Exists("email") = True Then
Set myBookmarks = ActiveDocument.Bookmarks(1)
End If
'Maak een Outlook object en een nieuw mail bericht en verzend deze
Set Outapp = CreateObject("Outlook.Application")
Set Outmail = Outapp.CreateItem(0)
With EmailItem
.Subject = "-----------------------------"
.BCC = ""
.To = ActiveDocument.Bookmarks(1)[COLOR="#FF0000"]< -------------- Probleem[/COLOR]
.Attachments.Add pdfPath & docName & ".pdf"
.Display
End With
'Loop 1 sec om Outlook de kans te geven het e-mailbericht te versturen
s = Timer
Do While Timer < s + 1
DoEvents
Loop
'Opruimen
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
Set Outapp = Nothing
Set Outmail = Nothing
MsgBox "Mail verzonden bedankt! ;-)"
End Sub
.
