Groupwise probleem

[JeroenMioch]

Ik heb een automatische mail verzender gemaakt in mijn access database.

Ik gebruik echter twee computers op hetzelfde account. Op allebij is groupwise als het goed is de default email client.

Op werk PC 2 word de mail zoals bedoeld verstuurd, geen problemen.
Op werk PC 1 start er een wizard internet verbindingen...

Zelfde progamma, zelfde netwerkaccount, maar toch verschillende uitkomst. Het moet dus denk ik een lokale instelling van de computer zijn wat het verschil veroorzaakt.

De VBA code die ik gebruik is :

Private Sub Knop14_Click()
On Error GoTo Err_Command9_Click

Dim stDocName As String
Dim strMessage As String

strMessage = "EmailTxT"

stDocName = "Bijlage"
DoCmd.SendObject acReport, stDocName, acFormatRTF, "", , , _
"Onderwerp", strMessage, True

Exit_Command9_Click:
Exit Sub

Err_Command9_Click:
MsgBox Err.Description
Resume Exit_Command9_Click

Ik heb nog gezocht naar een code die expliciet tegen mijn proggie "zegt" dat er groupwise gebruikt moet worden, maar kan dit nergens vinden.

Ideen iemand ?

 

[OctaFish]

En je weet 100% zeker dat de Groupwise instellingen hetzelfde zijn?

 

[JeroenMioch]

Ja ik denk het wel, We mailen altijd met groupwise, sterker nog; Outlook doet het ook niet vanaf de twee computers zover ik weet.

Ik vind het ook heel vaag, maar het gebeurd

 

[JeroenMioch]

hmm vreemd, Ik open net een .pdf file op diezelfde computer en daar word ook gevraagd of ik deze met Adobe Acrobat wil openen. Voorheen gebeurde dit automatisch. Volgens mij is de computer de koppelingen voor de verschillende progamma's het spoor bijster.

 

[bluesbrother]

Ik heb hieronder wat code egezet waar je mee kan mailen met GW en GW ook aan kan spreken als de specifieke mail client.
Misschien kan je er wat mee ?

{code}
Dim objGwApp As Object
Dim objGwRootAccount As Variant
Dim objGwRootFolder As Variant
Dim objGwDraftMessage As Variant
Dim objGwRecipient As Variant
Dim objGwEmail As Variant

Set objGwApp = CreateObject("NovellGroupWareSession")
Set objGwRootAccount = objGwApp.Login("jsmit", , "vreselijkgeheimpassw@rd")
Set objGwRootFolder = objGwRootAccount.MailBox

Set objGwDraftMessage = objGwRootFolder.Messages.Add("GW.MESSAGE.MAIL")
Set objGwRecipient = objGwDraftMessage.Recipients.Add("jan@ikhaatsmit.nl", , 0)

objGwDraftMessage.Subject = "subject"
objGwDraftMessage.BodyText.PlainText = "stukkie text"

Set objGwEmail = objGwDraftMessage.Send
objGwDraftMessage.Delete

{/code}