cdo mail office 2007/2010 icm windows server 2008

Status
Niet open voor verdere reacties.

fredvanhezel

Gebruiker
Lid geworden
12 okt 2009
Berichten
41
voorheen gebuikte ik CDO mail in office 2003 (zowel in access als exel ) en windows server 2003 dit liep prima , zonder tussen komst van outlook en of bericht vensters.
in de nieuwe config office 2007 en windows server 2008 werkt dit niet meer, ik heb al gelezen dat CDO mail niet meer standaard word meegeleverd met office 2007.


kan iemand mij helpen aan een optie waarmee ik mail kan versturen zonder dat er bericht vensters verschijnen ?

BVD

Fred
 
Over welke berichtvensters heb je het?
 
Als je een bulkmail of een geautomatiseerde mail stuurt vanuit Access, wordt je per mail om een bevestiging met een vertraging gevraagd. Met ClickYes kun je dat overigens prima onderdrukken. Maar ook via een externe Outlook connectie.
Gebruik je de procedure van everythingaccess?
 
ik gebruikte de onderstaande code

Dim OutApp As Object
Dim OutMail As Object
Dim aan As String
Dim cc As String
Dim bcc As String

Dim onderw As String
Dim pad As String

Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant



aan = "naar@fred.nl"
'cc = "naarcc@fred.nl"
'bcc = "naarbcc@fred.nl"
onderw = "mail onderwerp"

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
= "153.20.0.18"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
'

strbody = "Dit bericht wordt automatisch verstuurd"
'& vbNewLine & vbNewLine & _
'" " & vbNewLine & _
'" " & vbNewLine & _
'" " & vbNewLine & _
'" "

With iMsg
Set .Configuration = iConf
.To = aan
.cc = cc
.bcc = bcc
.From = """fred.nl"" <orders@fred.nl>"
.Subject = onderw
.AddAttachment "\\153.20.0.21\Applicatie\Bestellen\order.pdf"
.TextBody = strbody
.Send
End With


Set rng = Nothing

End Sub

deze dropt de mail rechtstreeks op de poort van de mail-server maar vanaf Office 2007 niet meer.
ik heb nog even gekeken naar " every thing access " dat is wel wat ik bedoel ik zal de trail versie komende week instaleren en testen.
Als dat werkt dan maar even investeren, andere optie is weer terug naar 2003 maar dan mis ik de pdf export weer .

Alvast bedankt voor je info.

Grt,
Fred
 
Zou je die meter code nog willen opmaken met de CODE knop (Knop # )? Dan is hij een heel stuk leesbaarder, en de lijst wordt een stuk korter.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan