Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA for sending Emails via Gmail

VBA for sending Emails via Gmail
01.05.2023 21:41:58
Ben

Hallo Zusammen,

Gmail hat die Sicherheitsstandards geändert, so dass ich nicht mehr via VBA E-Mails mit meinem alten Macro senden kann.
Was kann ich tun?

Vielen Dank und viele Grüße
Ben

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Hättest Du das Makro beigefügt ...
01.05.2023 23:26:38
lupo1
... hätte dieser Thread insgesamt nur 2 Beiträge. So wird es wieder unnötig lang.


AW: Hättest Du das Makro beigefügt ...
02.05.2023 03:42:14
onur
"Was kann ich tun?" - Ein neues Makro schreiben ???


AW: Hättest Du das Makro beigefügt ...
02.05.2023 06:34:53
Ben
Hallo Zusammen,

ich weiß halt nicht,ob ich durch das Makro an sich was ändern kann, oder ob es gar nicht mehr möglich ist wegen gmail ...
Hier ist das Makro:
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 = mailBetreff
.From = mail
.To = nameTo
.CC = nameToCC
.BCC = nameToBCC
.Textbody = Textbody
.AddAttachment nameAttachment
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") = mail
.Item(msConfigURL & "/sendpassword") = mailPassword

.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

VG
Ben


Anzeige
AW: CDO
03.05.2023 07:12:01
Ben
Hallo Zusammen,

es lag, wie gesagt nicht an meinem Code.
Es lag an den "Less Secure Apps", die gmail inzwischen nicht mehr zulässt.
Es gibt die Möglichkeitn in Gmail ein App Password zu erstellen.
Dieses kann direkt an der Stelle im Code, wo "mailPassword" auftaucht, eingesetzt werden.
Damit funktioniert der Code wieder.

Vielen Dank und viele Grüße
Benedikt

Anzeige

303 Forumthreads zu ähnlichen Themen

Automatisierter Email Versand xls vba
Christian

Hallo an alle Experten,
ich habe ein größeres Problem bezüglich des Versands von Woksheets als email Anhang und bräuchte dringend Hilfe.
Die Situation ist folgende:
Ich hab in verschiedenen Verzeichnissen(Ordnern) Excel WB (=Berichte/Reports) erzeugt, die jeweils nur aus einem She...
09.08.2008 11:00:00
Thread-ID: 1000468
6 Beiträge
Anzeige
Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Anzeige
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Userform Textbox soll E-Mail Adresse anzeigen
Winfried

Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Lin...
14.04.2010 17:39:26
Thread-ID: 1151809
4 Beiträge
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge
Tabellenblatt als PDF und als E-Mail senden VBA
andreas

Hallo zusammen,
knifflige Aufgabe, habe eine Anwendung mit mehreren Tabellenblättern.
Jetzt will ich nach betätigen des CommandButton1 Tabellenblatt1 als PDF generieren, der Name des PDF soll sich aus Wert Zelle A1&B1 zusammensetzen, zur PDF Erzeugung habe ich PDF Creator als Druck...
09.06.2010 14:37:06
Thread-ID: 1161083
6 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
6
6
4
2
8
3
2
5
2
2
4
1
9
2
7
1
3
3
3
1
2
1
1