Office: (Office 2003) Mailversand die Tausendste

NorbertK · 24. Mai 2015

Sorry,

aber irgendwas lief beim letzten Beitrag schief. Letzter Versuch:

Hier der Code des Moduls:
Code:

Public Sub Mail_senden(s_To As String, s_From As String, s_Subject As String, _
s_HTMLBody As String, s_mailserver As String, s_CC As String, _
s_BCC As String, Optional s_Attachment As String, _
Optional lAuth As Long = 0, Optional bSSL As Boolean = False, _
Optional sUser As String = "", Optional sPW As String = "")
'Diese Prozedur versendet ein E-Mail, optional mit Attachment.
Dim eMail
Dim s_attachment_array
Dim i As Integer
Dim s_HTML
Dim s_TextBody

Set eMail = CreateObject("CDO.Message")
With eMail

With .Configuration.Fields
If lAuth > 0 Then .Item(cdoSMTPauthenticate) = lAuth '
If sUser <> "" Then .Item(cdoSendUserName) = sUser ' Der Benutzername
If sPW <> "" Then .Item(cdoSendPassword) = sPW ' Das Paßwort für den Mailzugang
.Item(cdoSMTPUseSSL) = bSSL '
.Item(cdoSendUsingMethod) = 2 '=cdoSendUsingPort
.Item(cdoSMTPServer) = s_mailserver 'eigenen SMTP-Server eintragen
.Item(cdoSMTPServerPort) = 25 '=Standard, könnte aber auch abweichen
.Update
End With

' Build HTML for message body.
s_HTML = "<HTML>"
s_HTML = s_HTML & "<HEAD>"
s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
"<TR><TD width='20%' colSpan=2>Mit freundlichen Grüßen Vorname Nachname E-Mail: <a href = 'mailto:test@email.de'>test@email.de</a></TD><TD width='17%'> </TD><TD width='10%'> </TD></TR>" & _
"<TR><TD width='20%' colSpan=2>Firma Strasse PLZ Ort</TD><TD></TD><TD><IMG style='BORDER-TOP: medium none; BORDER-RIGHT: medium none; VERTICAL-ALIGN: top; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none' src='F:\Access\logo_mail.png' /></TD></TR>" & _
"<TR><TD width='8%'>Telefon: Telefax: Mobil: Internet: E-Mail:</TD><TD width='10%'>+49 (0)7244 / 740046 +49 (0)7244 / 740048 +49 (0)178 / 3225454 <a *****'Google'>Google</a> <a *****'mailto:test@email.de'>test@email.de</a> </TD><TD></TD><TD> </TD></TR>" & _
"<TR><TD width='18%' colSpan=2>Amtsgericht </TD><TD>Geschäftsführer: Vorname Nachname </TD><TD>Ust.-IDNr.: DEnnnnnnnn </TD></TR>" & _
"</TABLE>"
s_HTML = s_HTML & "</BODY>"
s_HTML = s_HTML & "</HTML>"

.To = s_To
.BCC = s_BCC

If s_CC <> "" Then
.CC = s_CC
End If

.From = s_From
.Subject = s_Subject
'.TextBody = s_TextBody
.HTMLBody = s_HTML

If s_Attachment <> "" Then
'Überprüfen, ob es mehrere Anlagen gibt (separiert durch ein Semikolon)
If InStr(1, s_Attachment, ";") > 0 Then
'Zerlegen der Dateinamen in ein Array
s_attachment_array = Split(s_Attachment, ";")
'Durchlaufe das array...
For i = LBound(s_attachment_array) To UBound(s_attachment_array)
'...und wenn die Datei existiert
If Len(Dir(Trim(s_attachment_array(i)))) > 0 Then
'Füge sie als Anlage bei
.AddAttachment Trim(s_attachment_array(i))
End If
'und zum nächsten Element in dem Array...
Next i
Else
'Nur eine Anlage vorhanden
.AddAttachment s_Attachment
End If
End If

.Send
End With
Set eMail = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und hier:
Code:

s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

müsste zwischen BODY und TABLE das Feld Nachricht aus meinem Formular übergeben werden.

NorbertK · 24. Mai 2015

Test:

Sorry,

aber irgendwas lief beim letzten Beitrag schief.

Hier der Code des Moduls:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Public Sub Mail_senden(s_To As String, s_From As String, s_Subject As String, _
s_HTMLBody As String, s_mailserver As String, s_CC As String, _
s_BCC As String, Optional s_Attachment As String, _
Optional lAuth As Long = 0, Optional bSSL As Boolean = False, _
Optional sUser As String = "", Optional sPW As String = "")
'Diese Prozedur versendet ein E-Mail, optional mit Attachment.
Dim eMail
Dim s_attachment_array
Dim i As Integer
Dim s_HTML
Dim s_TextBody

Set eMail = CreateObject("CDO.Message")
With eMail

With .Configuration.Fields
If lAuth > 0 Then .Item(cdoSMTPauthenticate) = lAuth '
If sUser <> "" Then .Item(cdoSendUserName) = sUser ' Der Benutzername
If sPW <> "" Then .Item(cdoSendPassword) = sPW ' Das Paßwort für den Mailzugang
.Item(cdoSMTPUseSSL) = bSSL '
.Item(cdoSendUsingMethod) = 2 '=cdoSendUsingPort
.Item(cdoSMTPServer) = s_mailserver 'eigenen SMTP-Server eintragen
.Item(cdoSMTPServerPort) = 25 '=Standard, könnte aber auch abweichen
.Update
End With

' Build HTML for message body.
s_HTML = "<HTML>"
s_HTML = s_HTML & "<HEAD>"
s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
"<TR><TD width='20%' colSpan=2>Mit freundlichen Grüßen Vorname Nachname E-Mail: <a href = 'mailto:test@email.de'>test@email.de</a></TD><TD width='17%'> </TD><TD width='10%'> </TD></TR>" & _
"<TR><TD width='20%' colSpan=2>Firma Strasse PLZ Ort</TD><TD></TD><TD><IMG style='BORDER-TOP: medium none; BORDER-RIGHT: medium none; VERTICAL-ALIGN: top; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none' src='F:\Access\logo_mail.png' /></TD></TR>" & _
"<TR><TD width='8%'>Telefon: Telefax: Mobil: Internet: E-Mail:</TD><TD width='10%'>+49 (0)7244 / 740046 +49 (0)7244 / 740048 +49 (0)178 / 3225454 <a *****'Google'>Google</a> <a *****'mailto:test@email.de'>test@email.de</a> </TD><TD></TD><TD> </TD></TR>" & _
"<TR><TD width='18%' colSpan=2>Amtsgericht </TD><TD>Geschäftsführer: Vorname Nachname </TD><TD>Ust.-IDNr.: DEnnnnnnnn </TD></TR>" & _
"</TABLE>"
s_HTML = s_HTML & "</BODY>"
s_HTML = s_HTML & "</HTML>"

.To = s_To
.BCC = s_BCC

If s_CC <> "" Then
.CC = s_CC
End If

.From = s_From
.Subject = s_Subject
'.TextBody = s_TextBody
.HTMLBody = s_HTML

If s_Attachment <> "" Then
'Überprüfen, ob es mehrere Anlagen gibt (separiert durch ein Semikolon)
If InStr(1, s_Attachment, ";") > 0 Then
'Zerlegen der Dateinamen in ein Array
s_attachment_array = Split(s_Attachment, ";")
'Durchlaufe das array...
For i = LBound(s_attachment_array) To UBound(s_attachment_array)
'...und wenn die Datei existiert
If Len(Dir(Trim(s_attachment_array(i)))) > 0 Then
'Füge sie als Anlage bei
.AddAttachment Trim(s_attachment_array(i))
End If
'und zum nächsten Element in dem Array...
Next i
Else
'Nur eine Anlage vorhanden
.AddAttachment s_Attachment
End If
End If

.Send
End With
Set eMail = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und hier:
Code:

s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

müsste zwischen BODY und TABLE das Feld Nachricht aus meinem Formular übergeben werden.

NorbertK · 24. Mai 2015

Sorry,

aber irgendwas lief beim letzten Beitrag schief.

Hier der Code des Moduls:
Code:

Public Sub Mail_senden(s_To As String, s_From As String, s_Subject As String, _
s_HTMLBody As String, s_mailserver As String, s_CC As String, _
s_BCC As String, Optional s_Attachment As String, _
Optional lAuth As Long = 0, Optional bSSL As Boolean = False, _
Optional sUser As String = "", Optional sPW As String = "")
'Diese Prozedur versendet ein E-Mail, optional mit Attachment.
Dim eMail
Dim s_attachment_array
Dim i As Integer
Dim s_HTML
Dim s_TextBody

Set eMail = CreateObject("CDO.Message")
With eMail

With .Configuration.Fields
If lAuth > 0 Then .Item(cdoSMTPauthenticate) = lAuth '
If sUser <> "" Then .Item(cdoSendUserName) = sUser ' Der Benutzername
If sPW <> "" Then .Item(cdoSendPassword) = sPW ' Das Paßwort für den Mailzugang
.Item(cdoSMTPUseSSL) = bSSL '
.Item(cdoSendUsingMethod) = 2 '=cdoSendUsingPort
.Item(cdoSMTPServer) = s_mailserver 'eigenen SMTP-Server eintragen
.Item(cdoSMTPServerPort) = 25 '=Standard, könnte aber auch abweichen
.Update
End With

' Build HTML for message body.
s_HTML = "<HTML>"
s_HTML = s_HTML & "<HEAD>"
s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
"<TR><TD width='20%' colSpan=2>Mit freundlichen Grüßen Vorname Nachname E-Mail: <a href = 'mailto:test@email.de'>test@email.de</a></TD><TD width='17%'> </TD><TD width='10%'> </TD></TR>" & _
"<TR><TD width='20%' colSpan=2>Firma Strasse PLZ Ort</TD><TD></TD><TD><IMG style='BORDER-TOP: medium none; BORDER-RIGHT: medium none; VERTICAL-ALIGN: top; BORDER-BOTTOM: medium none; BORDER-LEFT: medium none' src='F:\Access\logo_mail.png' /></TD></TR>" & _
"<TR><TD width='8%'>Telefon: Telefax: Mobil: Internet: E-Mail:</TD><TD width='10%'>+49 (0)Telefon +49 (0)Telefax +49 (0)Handy <a *****'Google'>Google</a> <a *****'mailto:test@email.de'>test@email.de</a> </TD><TD></TD><TD> </TD></TR>" & _
"<TR><TD width='18%' colSpan=2>Amtsgericht </TD><TD>Geschäftsführer: Vorname Nachname </TD><TD>Ust.-IDNr.: DEnnnnnnnn </TD></TR>" & _
"</TABLE>"
s_HTML = s_HTML & "</BODY>"
s_HTML = s_HTML & "</HTML>"

.To = s_To
.BCC = s_BCC

If s_CC <> "" Then
.CC = s_CC
End If

.From = s_From
.Subject = s_Subject
'.TextBody = s_TextBody
.HTMLBody = s_HTML

If s_Attachment <> "" Then
'Überprüfen, ob es mehrere Anlagen gibt (separiert durch ein Semikolon)
If InStr(1, s_Attachment, ";") > 0 Then
'Zerlegen der Dateinamen in ein Array
s_attachment_array = Split(s_Attachment, ";")
'Durchlaufe das array...
For i = LBound(s_attachment_array) To UBound(s_attachment_array)
'...und wenn die Datei existiert
If Len(Dir(Trim(s_attachment_array(i)))) > 0 Then
'Füge sie als Anlage bei
.AddAttachment Trim(s_attachment_array(i))
End If
'und zum nächsten Element in dem Array...
Next i
Else
'Nur eine Anlage vorhanden
.AddAttachment s_Attachment
End If
End If

.Send
End With
Set eMail = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und hier:
Code:

s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

müsste zwischen BODY und TABLE das Feld Nachricht aus meinem Formular übergeben werden.

NorbertK · 24. Mai 2015

Ich geb's auf!
Liegt wohl am HTML-Code im VBA-Code...

Und hier:
Code:

s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE>" & _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

müsste zwischen BODY und TABLE das Feld Nachricht aus meinem Formular übergeben werden.

Arne Dieckmann · 25. Mai 2015

Bitte das nächste Mal früher aufgeben, danke. *rolleyes.gif*

NorbertK · 25. Mai 2015

Hallo Arne,

das habe ich!

Aber alle Versuche den Code lesbar einzustellen scheiterten. Löschst Du bitte die Beiträge? Sind ja eh doppelt und dreifach und ich habe es ja jetzt lösen können...

Danke!

Ohrkester · 25. Mai 2015

Servus NorbertK,
und wie lautet nun die Lösung?

NorbertK · 25. Mai 2015

Hallo Ohrkester,

sitze nicht mehr am PC; daher in Kurzfassung aus meinem Gedächtnis:
1.) ich habe eine weitere Zeile zwischen den zuletzt genannten eingefügt.
Code:

s_HTML = s_Txtbody
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(davor und dahinter noch ein bisschen HTML-Code zur Formatierung)
2.) den String s_Txtbody übergebe ich über das Feld Nachricht aus meinem Formular (Memofeld) in ein unsichtbares Hilfsfeld, in dem ich aus vbcrlf durch einen Replace den HTML-BR-Tag mache.

Nichts Großartiges also...

Ohrkester · 25. Mai 2015

...sitze nicht mehr am PC
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Schade dass es keinen letztendlichen und erfolgreichen VBA-Code dieser Problematik anscheinend geben wird.

NorbertK · 25. Mai 2015

Hallo Ohrkester,

warum nicht? Dass ich jetzt nicht (mehr) am PC sitze, bedeutet ja nicht, dass ich den Code nicht hier einstellen kann wenn Interesse besteht - nur eben heute nicht mehr...

Marsu65 · 25. Mai 2015

\@Norbert

... scheitert an der Fehlermeldung

Fehler beim kompilieren
Argumenttyp ByRef unverträglich
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Darf man auch mal ruhig ernst nehmen, auch wenn es für den konkreten Fall keine Rolle zu spielen scheint.
Siehe VBA-Hilfe zu Byref und ByVal

@Orchester
Im konkreten Fall musste vom CDO.Message-Objekt die Eigenschaft
htmlBody statt htmlText gefüllt werden.
Das ist etwas untergegangen.

Falls dich CDO-Mailing interessiert, kann ich diese Seite empfehlen:
http://www.paulsadowski.com/wsh/cdo.htm

NorbertK · 25. Mai 2015

Hallo Marsu,

dieser Fehler entstand durch eine fehlende Deklaration des S-HTML-Strings. Dadurch wurde der Code wohl in einer unerwarteten Reihenfolge abgearbeitet und generierte diese Fehlermeldung.

Kein großes Problem - nur ein Flüchtigkeitsfehler...

Marsu65 · 25. Mai 2015

... dieser Fehler entstand durch eine fehlende Deklaration des S-HTML-Strings.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn dem so ist, sach ich nur Option Explicit. *wink.gif*

NorbertK · 25. Mai 2015

Hallo Ohrkester,

hier die gesamte Lösung:
Modul mod_Mail:
Code:

Public Sub Mail_senden(s_To As String, s_From As String, s_Subject As String, _
s_TextBody As String, s_HTMLBODY As String, s_mailserver As String, _
s_CC As String, s_BCC As String, Optional s_Attachment As String, _
Optional lAuth As Long = 0, Optional bSSL As Boolean = False, _
Optional sUser As String = "", Optional sPW As String = "")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...
Code:

s_HTML = s_HTML & "<BODY>"
s_HTML = s_HTML & "<TABLE><TR><TD>" & s_TextBody & " </TD></TR></TABLE>"
s_HTML = s_HTML & "<TABLE>" & _
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und im Formular gibt es 2 Felder:
txt_BodyEingabe (mit dem Dateninhalt Nachricht aus der Tabelle Kontakt) und txt_Body; beides Memofelder, txt_Body ist versteckt um den Anwender nicht zu verwirren.

Beim Klicken auf Senden wird u.a. die Routine:
Code:

Me!txt_Body = Replace(Me!txt_BodyEingabe, vbCrLf, " ")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ausgelöst. Da dies nur temporär im Hilfsfeld passiert, bleibt der Wert des Feldes in der Tabelle und auch optisch für den Anwender unberührt...

Ich hoffe, der Code bleibt nach dem posten sichtbar...

Office: (Office 2003) Mailversand die Tausendste

Mailversand die Tausendste

Mailversand die Tausendste

Mailversand die Tausendste

Mailversand die Tausendste

Mailversand die Tausendste

Mailversand die Tausendste - Similar Threads - Mailversand Tausendste

Mailversand mit Kontaktliste geht nicht mehr

Office365 / Outlook: Fehlermeldung beim Schreiben/Versenden von Mails

Mailversand mit CDO

Mailversand aus Access

Mailversand per VBA mit individuellem Link

Microsoft Access Mailversand an mehrere Empfänger

Word etc. will immer Outlook statt GroupWise zum Mailversand