Thema Datum  Von Nutzer Rating
Antwort
11.06.2024 17:50:41 Ludger
NotSolved
Blau Email ohne Outlook versenden
 12.06.2024 12:48:56 Ludger
Solved

Ansicht des Beitrags:
Von:
Ludger		 Datum:
12.06.2024 12:48:56		 Views:
90		 Rating:
     
Antwort:
 Nein
Thema:
Email ohne Outlook versenden
Lösung: Public Function EmailVersand() Dim OutMail As Object Dim Schema As String Const cdoSendUsingPort = 2 ' send the message using the network (SMTP over the network) Const cdoAnonymous = 0 ' do not authenticate Set OutMail = CreateObject("CDO.Message") Schema = "http://schemas.microsoft.com/cdo/configuration/" With OutMail .From = "Fritz@Maile.de" .To = "Ludger@Maile.de" .CC = "Ludger@Maile.de" .Subject = "" .BodyPart.Charset = "iso-8859-1" .TextBody = "Guten Tag, dies ist ein Test." With .Configuration.Fields .Item(Schema & "sendusing") = cdoSendUsingPort .Item(Schema & "smtpserver") = "smtp.strato.de" .Item(Schema & "smtpserverport") = 465 '25 .Item(Schema & "smtpauthenticate") = cdoAnonymous '.HTMLBody =

Guten Tag, dies ist ein Test.

" Dim Datei As String Datei = "???=" ' .AddAttachment = Datei '.AddAttachment = Const cdoBasic = 1 ' use basic (clear-text) authentication .Item(Schema & "smtpauthenticate") = cdoBasic .Item(Schema & "sendusername") = "Fritz@Maile.de" .Item(Schema & "sendpassword") = "PW" .Item(Schema & "smtpusessl") = 1 .Item(Schema & "sendtls") = 1 .Update End With .Send End With Set OutMail = Nothing MsgBox "Mail gesendet" Exit Function End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.06.2024 17:50:41 Ludger
NotSolved
Blau Email ohne Outlook versenden
 12.06.2024 12:48:56 Ludger
Solved