Mar 01, 2023, updated at 14:03:01 (UTC)

2782

Email aus access mit Outlook footer

Hallo Gemeinschaft,

sende über ein coding aus access über outlook mails - gibt es eine Möglichkeit, dass ich die Signatur eines email Kontos verwenden kann - also, dass ich praktisch über das Konto sende

Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(0)

Please also mark the comments that contributed to the solution of the article

Content-Key: 6176021894

Url: https://administrator.de/contentid/6176021894

Printed on: July 27, 2024 at 11:07 o'clock

21 Comments

Latest comment

Ja. Die Default Signatur wird auch bei solch erstellen Mails per Default angehängt.
Zum Senden einer Mail über einen bestimmten Account nutze man die Eigenschaft SendUsingAccount.

set objOutlook =  CreateObject("Outlook.Application")  
With objOutlook.CreateItem(0)
    set .SendUsingAccount = objOutlook.Session.Accounts.Item("user@domain.de")  
    .Display
End With

Hallo,

also so einfach kommste da nicht ran, müsstest ja mit dem UserProfile das Outlook starten ....

Aber ein anderer Ansatz wäre, die Signature Datei an den Mailbody zu hängen.

Bei aktuellen Outlooks ( 2016 / o365 ) sollte sich die Datei hier finden:

C:\Users\Username\AppData\Local\Packages\Microsoft.Office.Desktop_8wekyb3d8bbwe\LocalCache\Roaming\Microsoft\Signatures

Da musst du dann halt schaun wie du die HTML oder RTF reingefrimmelt bekommst.

grüße

@6017814589 - geht leider nicht

Zitat von @jhaustein:

@6017814589 - geht leider nicht

Senden tust du dann aber mit diesem Account, wenn du dann noch die Default-Signatur in Outlook auf die gewünschte einstellst, bist du fertig, Signatur erscheint auch in diesen Mails. Klappt hier problemlos.
Du musst schon sagen ob das separate Outlook Profile sind oder unterschiedliche Accounts in ein und dem selben Profil. Deine Fragen sind wie immer zu kurz und ohne alle nötigen Infos, wie immer bescheiden ...

Ist nur ein Profil - wo stellst du das default profil ein

Zitat von @jhaustein:
Ist nur ein Profil - wo stellst du das default profil ein

Standard-Signatur : Einstellungen > EMail > Signaturen
Default Outlook Profil: WIN+R > "control" eintippen, > E-Mail > Profile

wo mache ich das ?
Standard-Signatur : Einstellungen > EMail > Signaturen

in Outlook unter Signaturen ist eine Standardsignatur mit dem entsprechenden Konto eingestellt - das greift aber nicht

Klappt hier problemlos mit Outlook 2021 Pro Plus.

genauso habe ich es auch eingestellt gehabt

Dann ist dein Outlook oder Profil wohl put, geht ja Demo s.o..

Zitat von @6017814589:

Dann ist dein Outlook oder Profil wohl put, geht ja Demo s.o..

Moin,

funktioniert das auch noch, wenn Du Text im Body mitlieferst?
Würde mich wundern

Grüße

Zitat von @sabines:
Moin,

funktioniert das auch noch, wenn Du Text im Body mitlieferst?
Würde mich wundern

Davon hat er nichts gesagt, klappt aber auch wenn man die Body-Eigenschaft bei der Zuweisung wieder hinten anhängt.

Text liefere ich mit - hast du noch eine Idee @sabines

With objOutlookMsg

Set objOutlookRecip = .Recipients.Add("test@web.de")  
objOutlookRecip.Type = olTo

.Subject = "Verwaltungsgebühr "  
.Body = Anredeemail & vbCrLf & vbCrLf & "anbei erhalten Sie unsere Verwaltungskostenrechnung." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen" & vbCrLf & vbCrLf & ""  
.Importance = olImportanceNormal
.Attachments.Add strDatei
.Send
 End With

Zitat von @jhaustein:

Text liefere ich mit - hast du noch eine Idee @sabines

Wenn du den Body komplett überschreibst ist ja klar das die Signatur weg ist 🙈. Den bereits vorhandenen Body musst du hinten anhängen

.Body = "Dein Text" & vbNewline & .Body

gemacht - klappt leider nicht

wie sabines schon schrieb - in dem Moment, wo ich den Body fülle, ist die Signatur nicht mehr da

da hilft dieser code leider auch nicht

.Body = "Dein Text" & vbNewline & .Body

Guten Morgen Gemeinschaft,

Hat vielleicht noch jemand eine Idee wie ich dieses Problem lösen kann?

Lieben Gruß

Bei dir scheint aber auch nix zu gehen

. Hier klappt auch das wie gewünscht. Wenn bei dir eben nicht, dann lies die Textdateien der Signatur im Verzeichnis %appdata%\Microsoft\Signatures mit dem Filesystemobject aus und füge den Inhalt in den Body an, fertig.

Sub NewOutlookMail()
Dim objOutlook as Object, fso as Object, objShell as Object, signaturename as String, signatureContent as Variant ,signatureFile as String
Set objOutlook = CreateObject("Outlook.Application")
Set fso = CreateObject("Scripting.Filesystemobject")
Set objShell = CreateObject("Wscript.Shell")

signaturename = "Standard"
signatureFile = objShell.ExpandEnvironmentStrings("%APPDATA%") & "\Microsoft\Signatures\" & signaturename & ".txt"
If not fso.FileExists(signatureFile) Then
	MsgBox "Signatur nicht gefunden!",vbExclamation
	Exit Sub
End If
signatureContent = fso.OpenTextFile(signatureFile,1,False,-1).ReadAll

With objOutlook.CreateItem(0)
	Set .SendUsingAccount = objOutlook.Session.Accounts.Item("user@domain.de")
	.Subject = "BlaBlub"
	.Body = "MeinText" & vbNewLine & &vbNewLine & signatureContent
	.Display
End With
set fso = Nothing
set objOutlook = Nothing
set objShell = Nothing
End Sub

super klasse - funktioniert toll

Muss ich mir auch mal anschauen

German solved Question Microsoft Office