Discussion :

[sri75]

Bonjour, je viens d'envoyer un mailing a 2000 personnes pour vérifier leur adresse mail et ils vont me répondre par mail via outlook.

je cherche un bout de code vba pour récupérer l'adresse mail de l’expéditeur dans un "copier" pour pouvoir ensuite la coller manuellement dans ma base de données.

J'ai passé la matinée à chercher sur le web en vain , visiblement il faut utiliser sender.address mais je bloque.

Merci à tous pour votre aide ou vos conseils

[carden752]

Bonjour,

Pourquoi faire l'insertion manuellement dans ta base de données.
Effectivement, il s'agit de l'objet SenderEmailAddress.
Toutefois, s'il s'agit d'un envoi via un serveur Exchange, l'adresse SMTP est vide.

[sri75]

Bonjour,

Pourquoi faire l'insertion manuellement dans ta base de données.
Effectivement, il s'agit de l'objet SenderEmailAddress.
Toutefois, s'il s'agit d'un envoi via un serveur Exchange, l'adresse SMTP est vide.

Il s'agit d'un mailing papier pour recuperer les adresses mails manquantes et les inserer dans un progiciel, donc insertion manuelle.

Je ne maitrise pas la vba dans outlook, serait il possible de me donner le code entier ?

Merci d'avance

NB : je ne passe pas par exchange

[Oliv-]

Salut
A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub exp_dans_pressepapier
Set OITEM = ActiveInspector.CurrentItem
 
 With New DataObject
    .SetText OITEM.SenderEmailAddress
    .PutInClipboard
    End With
end sub

[sri75]

Salut
A tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
sub exp_dans_pressepapier
Set OITEM = ActiveInspector.CurrentItem
 
 With New DataObject
    .SetText OITEM.SenderEmailAddress
    .PutInClipboard
    End With
end sub

Bonjour, malheureusement j'ai une erreur vba sur la ligne

With New DataObject

erreur de compilation
type defini par l'utilisateur non défini.

Merci de voir comment on peu rectifier l'erreur vba

Bonne journée

[Oliv-]

Il faut ajouter une REFERENCE à "Microsoft Forms 2.0"
ou alors ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'http://bytecomb.com/copy-and-paste-in-vba/
Const DATAOBJECT_BINDING As String = "new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"  
 
sub exp_dans_pressepapier
Set OITEM = ActiveInspector.CurrentItem
CopyToClipboard OITEM.SenderEmailAddress
end sub
 
Public Sub CopyToClipboard(ByVal Expression As String)
With CreateObject(DATAOBJECT_BINDING)
.SetText Expression
.PutInClipboard
End With
End Sub

[sri75]

Désolé j'ai une erreur vba sur

With CreateObject(DATAOBJECT_BINDING)

erreur execution -2147221005 800401f3

une idée ?

NB : je suis sous outlook 2010 et W7 pro 64bits et je n'ai pas le librairie microsoft form 2.0

[Oliv-]

Pour les version 64 bits c'est là
c:\windows\Syswow64\fm20.dll