Office: (Office 2007) GMAIL mit VBA / Access

Hallo Ihr,

ich hoffe ihr könnt mir helfen, bei uns wurde jetzt Outlook abgeschafft und wir sind auf GMAIL umgestellt wurden.

Dummerweise hat man uns damit einige wichtige Datenbanken zerschossen, welche vorher Email aus Outlook versendet haben.
Bei der Suche dieses auf GMAIL umzustellen, fand ich nur eine Möglichkeit per CDO, das scheint aber nicht mehr zu funktionieren.

Kennt einer von euch eine Möglichkeit?

:)

 

"Scheint" ... oder "funktioniert nicht"?
Alle Verweise korrekt eingebunden?

Bei mir läuft das seit Jahr und Tag problemlos.

 

Ich bin mal vorsichtig und sage es scheint... ich bekomme immer eine Fehlermeldung:

DEr Transport konnte keine Verbindung zum Server herstellen.

Vielleicht übersehe ich aber auch was.
so habe ich den code... mit echten mailadressen natürlich *wink.gif*

Dim newMail As CDO.Message
Dim mailConfiguration As CDO.Configuration
Dim fields As Variant
Dim msConfigURL As String

On Error GoTo errHandle

Set newMail = New CDO.Message
Set mailConfiguration = New CDO.Configuration

mailConfiguration.Load -1

Set fields = mailConfiguration.fields

With newMail
.Subject = "TEST"
.From = "Sendermail"
.To = "empfänger@mail.xxx"
.CC = ""
.BCC = ""
' To set email body as HTML, use .HTMLBody
' To send a complete webpage, use .CreateMHTMLBody
.TextBody = "This is a test email to check if GMAIL can be used by database."


End With

msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

With fields
.Item(msConfigURL & "/smtpusessl") = True
.Item(msConfigURL & "/smtpauthenticate") = 1

.Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
.Item(msConfigURL & "/smtpserverport") = 465
.Item(msConfigURL & "/sendusing") = 2

.Item(msConfigURL & "/sendusername") = "email"
.Item(msConfigURL & "/sendpassword") = "passwort"

.Update

End With

newMail.Configuration = mailConfiguration
newMail.Send

MsgBox "E-Mail has been sent", vbInformation

exit_line:
'// Release object memory
Set newMail = Nothing
Set mailConfiguration = Nothing

Exit Sub

errHandle:

MsgBox "Error: " & Err.Description, vbInformation

GoTo exit_line

End Sub

 

Bei über 500 Beiträgen sollte man wissen, das Code bitte in Code-Tags gepostet werden sollte.
Code:

 

Der Inhalt einer Meldung könnte Relevanz und Sinn enthalten.
Wie und wo unternimmst Du den Versuch, eine Verbindung zum SMTP-Server herzustellen?

 

\@mccrazyk: Ich weiss ja nicht, wo Du den Code her hast ... ich habe den, den ich verwende auch im Internet gefunden ...

Und da steht drin, dass TLS von CDO nur auf Port 25 unterstützt wird.

Ein Tipp: setzt Dir einen kleinen Mailserver im lokalen Netz auf, der die Nachrichten zu gmail forwarded oder such Dir alternativ einen Hoster, der einen SMTP Dienst bereit hält, der Nachrichten auf Port 25 annimmt.

 

Sorry... ich hab da nicht dran gedacht. My fault.

@ebs:

Die Fehlermeldung lautet:
Error: Der Transport konnte keine Verbindung zum Server herstellen

@hcscherzer:

Ich werde da mal mit unserer IT-Security reden, ob wir einen lokalen Server aufbauen dürfen. Danke für den Tipp. *Smilie

 

Wenn das bei einer nicht näher genannten Quelle irgendwo im Internet steht, dann muss das ja zweifelsfrei stimmen. ;-)

Ich würde erstmal die offizielle Gmail-Dokumentation konsultieren.
Z.B. dies: Send email from a printer, scanner, or app

 

Eine informative und erschöpfende Antwort auf die Frage, WIE die Verbindung hergestellt wird. (Ich komme mir immer wieder veräppelt vor).

Im Code-Archiv (etwas kleiner als das Internet) gibt es eine Beispiellösung mit CDO, die zumindest seinerzeit funktioniert hat.

 

Es war nur eine Idee, wie der TS den Fehler umschippern könnte.
Ich möchte gern mal wissen, wie viele der Koryphäen hier ihre sämtlichen Fundorte von Sourcecodes fein säuberlich dokumentieren.


@mccrazyk: Vielleicht mal versuchsweise den Port von 465 auf 25 ändern.
In dem Link, auf den sonic8 hinwies, steht nämlich, dass der Port 25 auch erlaubt ist.

Wenn ich aber diesen Text dort richtig verstehe, funktioniert das alles über den Google SMTP Server nur mit der G Suite Edition.

Wenn ich das SMTP Protokoll richtig verstehe, passiert das (erst und nur) bei Aufruf der Methode .Send

 

Die quantitative Frage kann ich natürlich nicht beantworten. Bzgl. Urheberrecht und aus purer Höflichkeit der ursprünglichen Quelle gegenüber, wäre es angemessen das zumindest für unverändert übernommenen Code zu tun. Spätestens dann, wenn man solche Code-Teile in Foren o.ä. weiterverbreitet.

Interessant. Das lese ich dort so nicht, bzw. nur mit sehr deutlichen Einschränkungen.
Ich hatten den Link vor allen wegen den Hinweisen auf die Authentifizierung und das evtl. erforderliche App-Password angeführt.

 

Da gebe ich dir recht, der Code bricht just an der Stelle ab. Schau mir das aber nochmal ganz in Ruhe an.
Ich habe jetzt schon fast die Vermutung, dass firmeninterne Sicherheitsprotokolle mir da die Zugriffe sperren.
Ich teste das morgen mal mit meinem privaten Konto ohne FirmenVPN.

@eps... verarschen wollte ich dich sicher nicht, hab an der Stelle einfach zu kurz gedacht.

Ich lese mich zusätzlich noch mal in den Link von sonic8 ein.