direkt aus Excel email via Google mail (GMail)2

Bis dato habe ich erfolgreich direct aus Excel Tabellenblätter via outlook versendet. Leider aber sind wir nun auf google mail (GMail) umgestiegen und versenden von emails per click auf email-adressen erfolgt via Affixa.
Nun stehe ich ziemlich am Berg, da ich nicht weiss wie ich mein Firmen-GMail ansteuere, damit die emails wieder versandt werden. Bei google gibt es zahlreiche Aneleitung für den webmail-Versand, jedoch ist mein GMAil-Account ein Firmenaccount, der nicht über den google-server läuft und somit im Intranet Funktioniert. Um Dateien direkt zu versenden ohne den Browser zu öffnen, ist bei uns Affixa installiert. Weder die Ansteuerung von Affixa noch via CDO http://www.rondebruin.nl/win/s1/cdo.htm funktionert.
Kann mir da irgendwer weiterhelfen?
Danke und Grüsse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
sowas habe ich zufällig hier rumliegen.
Daten entsprechend anpassen.

Sub EMail_Senden_Ohne_Outlook()
Dim iNachricht As Object
Dim iKonfiguration As Object
Dim Felder As Variant

Const sString$ = "http://schemas.microsoft.com/cdo/configuration/"


Set iNachricht = CreateObject("CDO.Message")
Set iKonfiguration = CreateObject("CDO.Configuration")
iKonfiguration.Load -1
Set Felder = iKonfiguration.Fields

With Felder
    .Item(sString & "sendusername") = "E-Mail-Adresse@GMail.com" '"Deine E-Mail-Adresse" 
    .Item(sString & "sendpassword") = "Passwort" 'Passwort angeben 
    .Item(sString & "smtpserver") = "smtp.gmail.com" 'Postausgangsserver 
   
    .Item(sString & "smtpusessl") = True 'SSL Verschlüsselung aktivieren 
    .Item(sString & "smtpauthenticate") = 1 'SMTP Authentifizierung 
    .Item(sString & "sendusing") = 2 'SMTP-Servers 1 = lokaler; 2 = extern 
    .Item(sString & "smtpserverport") = 465 'SMTP-Port 
    .Item(sString & "smtpconnectiontimeout") = 60 'Connectiontimeouts 
   .Update
End With

With iNachricht
    Set .Configuration = iKonfiguration
    .To = "Empfänger@Proviter.com"         'Empfänger 
    .CC = ""                               'Zur Kenntnis 
    .BCC = ""                              '.BCC nicht sichtbare Empfänger 
    .ReplyTo = ""                          'Mail-Adresse 
    .Sender = "Empfänger@Proviter.com"     'Von Mail-Adresse 
    .From = """Dein Name"" "               'Dein Name 
    .Subject = "Betreff"                   'Betreffzeile 
    .TextBody = "Deine Nachricht!"         'Nachricht 
    .AddAttachment "C:\Ordner\Bild.gif"    'Anlage 
    .Send
End With

End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

direkt aus Excel email via Google mail (GMail)2

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread